Changeset 1318 for trunk/NEMO/OPA_SRC/DIA
- Timestamp:
- 2009-02-17T17:38:18+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diawri.F90
r1317 r1318 511 511 #endif 512 512 513 ! 3. Synchronise and close all files514 ! ---------------------------------------515 IF( MOD( it, nwrite ) == 0 .OR. kindic < 0 ) THEN516 CALL histsync( nid_T )517 CALL histsync( nid_U )518 CALL histsync( nid_V )519 CALL histsync( nid_W )520 ENDIF521 522 513 ! Create an output files (output.abort.nc) if S < 0 or u > 20 m/s 523 514 IF( kindic < 0 ) CALL dia_wri_state( 'output.abort' ) 524 515 516 ! 3. Close all files 517 ! --------------------------------------- 525 518 IF( kt == nitend .OR. kindic < 0 ) THEN 526 519 CALL histclo( nid_T )
Note: See TracChangeset
for help on using the changeset viewer.