Changeset 14072 for NEMO/trunk/tests/STATION_ASF/MY_SRC/diawri.F90
- Timestamp:
- 2020-12-04T08:48:38+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/tests/STATION_ASF/MY_SRC/diawri.F90
r12615 r14072 387 387 CALL iom_rstput( 0, 0, inum, 'sozotaux', utau ) ! i-wind stress 388 388 CALL iom_rstput( 0, 0, inum, 'sometauy', vtau ) ! j-wind stress 389 389 ! 390 CALL iom_close( inum ) 391 ! 390 392 #if defined key_si3 391 393 IF( nn_ice == 2 ) THEN ! condition needed in case agrif + ice-model but no-ice in child grid 394 CALL iom_open( TRIM(cdfile_name)//'_ice', inum, ldwrt = .TRUE., kdlev = jpl, cdcomp = 'ICE' ) 392 395 CALL ice_wri_state( inum ) 393 ENDIF 396 CALL iom_close( inum ) 397 ENDIF 398 ! 394 399 #endif 395 !396 CALL iom_close( inum )397 !398 400 END SUBROUTINE dia_wri_state 399 401
Note: See TracChangeset
for help on using the changeset viewer.