Changeset 13540 for NEMO/branches/2020/r12377_ticket2386/src/SAS/diawri.F90
- Timestamp:
- 2020-09-29T12:41:06+02:00 (3 years ago)
- Location:
- NEMO/branches/2020/r12377_ticket2386
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r12377_ticket2386
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEADext/AGRIF5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 8 9 9 # SETTE 10 ^/utils/CI/sette@ HEADsette10 ^/utils/CI/sette@13507 sette
-
- Property svn:externals
-
NEMO/branches/2020/r12377_ticket2386/src/SAS/diawri.F90
r12511 r13540 99 99 ! Output the initial state and forcings 100 100 IF( ninist == 1 ) THEN 101 CALL dia_wri_state( 'output.init', Kmm)101 CALL dia_wri_state( Kmm, 'output.init' ) 102 102 ninist = 0 103 103 ENDIF … … 126 126 END FUNCTION dia_wri_alloc_abl 127 127 128 SUBROUTINE dia_wri( kt )128 SUBROUTINE dia_wri( kt, Kmm ) 129 129 !!--------------------------------------------------------------------- 130 130 !! *** ROUTINE dia_wri *** … … 138 138 !! Each nn_write time step, output the instantaneous or mean fields 139 139 !!---------------------------------------------------------------------- 140 !!141 140 INTEGER, INTENT( in ) :: kt ! ocean time-step index 141 INTEGER, INTENT( in ) :: Kmm ! ocean time level index 142 142 !! 143 143 LOGICAL :: ll_print = .FALSE. ! =T print and flush numout … … 154 154 ! Output the initial state and forcings 155 155 IF( ninist == 1 ) THEN 156 CALL dia_wri_state( 'output.init' )156 CALL dia_wri_state( Kmm, 'output.init' ) 157 157 ninist = 0 158 158 ENDIF … … 257 257 IF( ln_abl ) THEN 258 258 ! Define the ABL grid FILE ( nid_A ) 259 CALL dia_nam( clhstnam, n write, 'grid_ABL' )259 CALL dia_nam( clhstnam, nn_write, 'grid_ABL' ) 260 260 IF(lwp) WRITE(numout,*) " Name of NETCDF file ", clhstnam ! filename 261 261 CALL histbeg( clhstnam, jpi, glamt, jpj, gphit, & ! Horizontal grid: glamt and gphit … … 414 414 #endif 415 415 416 SUBROUTINE dia_wri_state( cdfile_name, Kmm)416 SUBROUTINE dia_wri_state( Kmm, cdfile_name ) 417 417 !!--------------------------------------------------------------------- 418 418 !! *** ROUTINE dia_wri_state *** … … 427 427 !! File 'output.abort.nc' is created in case of abnormal job end 428 428 !!---------------------------------------------------------------------- 429 INTEGER , INTENT( in ) :: Kmm ! ocean time levelindex 429 430 CHARACTER (len=* ), INTENT( in ) :: cdfile_name ! name of the file created 430 INTEGER , INTENT( in ) :: Kmm ! ocean time levelindex431 431 !! 432 432 INTEGER :: inum … … 437 437 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~ and forcing fields file created ' 438 438 IF(lwp) WRITE(numout,*) ' and named :', cdfile_name, '...nc' 439 440 #if defined key_si3 441 CALL iom_open( TRIM(cdfile_name), inum, ldwrt = .TRUE., kdlev = jpl ) 442 #else 443 CALL iom_open( TRIM(cdfile_name), inum, ldwrt = .TRUE. ) 444 #endif 445 439 ! 440 CALL iom_open( TRIM(cdfile_name), inum, ldwrt = .TRUE. ) 441 ! 446 442 CALL iom_rstput( 0, 0, inum, 'votemper', ts (:,:,:,jp_tem,Kmm) ) ! now temperature 447 443 CALL iom_rstput( 0, 0, inum, 'vosaline', ts (:,:,:,jp_sal,Kmm) ) ! now salinity … … 456 452 CALL iom_rstput( 0, 0, inum, 'sozotaux', utau ) ! i-wind stress 457 453 CALL iom_rstput( 0, 0, inum, 'sometauy', vtau ) ! j-wind stress 458 454 ! 455 CALL iom_close( inum ) 456 ! 459 457 #if defined key_si3 460 458 IF( nn_ice == 2 ) THEN ! condition needed in case agrif + ice-model but no-ice in child grid 459 CALL iom_open( TRIM(cdfile_name)//'_ice', inum, ldwrt = .TRUE., kdlev = jpl, cdcomp = 'ICE' ) 461 460 CALL ice_wri_state( inum ) 462 ENDIF 463 #endif 464 ! 465 CALL iom_close( inum ) 466 ! 461 CALL iom_close( inum ) 462 ENDIF 463 ! 464 #endif 467 465 END SUBROUTINE dia_wri_state 468 466
Note: See TracChangeset
for help on using the changeset viewer.