- Timestamp:
- 2019-11-22T15:29:17+01:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r11943_MERGE_2019/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src
- Property svn:mergeinfo deleted
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/SAS/diawri.F90
r11536 r11949 78 78 79 79 80 SUBROUTINE dia_wri( kt )80 SUBROUTINE dia_wri( kt, Kmm ) 81 81 !!--------------------------------------------------------------------- 82 82 !! *** ROUTINE dia_wri *** … … 90 90 !! 91 91 INTEGER, INTENT( in ) :: kt ! ocean time-step index 92 INTEGER, INTENT( in ) :: Kmm ! ocean time levelindex 92 93 !!---------------------------------------------------------------------- 93 94 ! 94 95 ! Output the initial state and forcings 95 96 IF( ninist == 1 ) THEN 96 CALL dia_wri_state( 'output.init' )97 CALL dia_wri_state( 'output.init', Kmm ) 97 98 ninist = 0 98 99 ENDIF … … 332 333 #endif 333 334 334 SUBROUTINE dia_wri_state( cdfile_name )335 SUBROUTINE dia_wri_state( cdfile_name, Kmm ) 335 336 !!--------------------------------------------------------------------- 336 337 !! *** ROUTINE dia_wri_state *** … … 346 347 !!---------------------------------------------------------------------- 347 348 CHARACTER (len=* ), INTENT( in ) :: cdfile_name ! name of the file created 349 INTEGER , INTENT( in ) :: Kmm ! ocean time levelindex 348 350 !! 349 351 INTEGER :: inum … … 361 363 #endif 362 364 363 CALL iom_rstput( 0, 0, inum, 'votemper', ts n(:,:,:,jp_tem) ) ! now temperature364 CALL iom_rstput( 0, 0, inum, 'vosaline', ts n(:,:,:,jp_sal) ) ! now salinity365 CALL iom_rstput( 0, 0, inum, 'sossheig', ssh n) ! sea surface height366 CALL iom_rstput( 0, 0, inum, 'vozocrtx', u n) ! now i-velocity367 CALL iom_rstput( 0, 0, inum, 'vomecrty', v n) ! now j-velocity368 CALL iom_rstput( 0, 0, inum, 'vovecrtz', w n) ! now k-velocity369 CALL iom_rstput( 0, 0, inum, 'sowaflup', emp - rnf ) ! freshwater budget370 CALL iom_rstput( 0, 0, inum, 'sohefldo', qsr + qns ) ! total heat flux371 CALL iom_rstput( 0, 0, inum, 'soshfldo', qsr ) ! solar heat flux372 CALL iom_rstput( 0, 0, inum, 'soicecov', fr_i ) ! ice fraction373 CALL iom_rstput( 0, 0, inum, 'sozotaux', utau ) ! i-wind stress374 CALL iom_rstput( 0, 0, inum, 'sometauy', vtau ) ! j-wind stress365 CALL iom_rstput( 0, 0, inum, 'votemper', ts (:,:,:,jp_tem,Kmm) ) ! now temperature 366 CALL iom_rstput( 0, 0, inum, 'vosaline', ts (:,:,:,jp_sal,Kmm) ) ! now salinity 367 CALL iom_rstput( 0, 0, inum, 'sossheig', ssh(:,:, Kmm) ) ! sea surface height 368 CALL iom_rstput( 0, 0, inum, 'vozocrtx', uu (:,:,:, Kmm) ) ! now i-velocity 369 CALL iom_rstput( 0, 0, inum, 'vomecrty', vv (:,:,:, Kmm) ) ! now j-velocity 370 CALL iom_rstput( 0, 0, inum, 'vovecrtz', ww ) ! now k-velocity 371 CALL iom_rstput( 0, 0, inum, 'sowaflup', emp - rnf ) ! freshwater budget 372 CALL iom_rstput( 0, 0, inum, 'sohefldo', qsr + qns ) ! total heat flux 373 CALL iom_rstput( 0, 0, inum, 'soshfldo', qsr ) ! solar heat flux 374 CALL iom_rstput( 0, 0, inum, 'soicecov', fr_i ) ! ice fraction 375 CALL iom_rstput( 0, 0, inum, 'sozotaux', utau ) ! i-wind stress 376 CALL iom_rstput( 0, 0, inum, 'sometauy', vtau ) ! j-wind stress 375 377 376 378 #if defined key_si3
Note: See TracChangeset
for help on using the changeset viewer.