Changeset 3171 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2011-11-22T11:56:25+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90
r3168 r3171 428 428 ENDIF 429 429 ! 430 #if defined key_mpp_mpi 430 431 IF( kt == nitend .AND. l_znl_root ) CALL histclo( numptr ) ! Close the file 432 #else 433 IF( kt == nitend ) CALL histclo( numptr ) ! Close the file 434 #endif 431 435 ! 432 436 IF( nn_timing == 1 ) CALL timing_stop('dia_ptr')
Note: See TracChangeset
for help on using the changeset viewer.