- Timestamp:
- 2013-02-01T15:56:10+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r3768 r3769 194 194 ! 195 195 CALL nemo_closefile 196 #if defined key_oasis3 || defined key_oasis4 196 #if defined key_iomput 197 CALL xios_finalize ! end mpp communications with xios 198 # if defined key_oasis3 || defined key_oasis4 197 199 CALL cpl_prism_finalize ! end coupling and mpp communications with OASIS 200 # endif 198 201 #else 199 # if defined key_iomput 200 IF( Agrif_Root() ) THEN 201 CALL xios_finalize ! end mpp communications 202 ENDIF 202 # if defined key_oasis3 || defined key_oasis4 203 CALL cpl_prism_finalize ! end coupling and mpp communications with OASIS 203 204 # else 204 205 IF( lk_mpp ) CALL mppstop ! end mpp communications … … 390 391 ! ! Diagnostics 391 392 IF( lk_floats ) CALL flo_init ! drifting Floats 392 CALL iom_init ! iom_put initialization393 393 IF( lk_diaar5 ) CALL dia_ar5_init ! ar5 diag 394 394 CALL dia_ptr_init ! Poleward TRansports initialization
Note: See TracChangeset
for help on using the changeset viewer.