Changeset 12633 for NEMO/trunk/src/SAS/diawri.F90
- Timestamp:
- 2020-03-31T17:46:17+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/SAS/diawri.F90
r12489 r12633 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 *** … … 140 140 !! 141 141 INTEGER, INTENT( in ) :: kt ! ocean time-step index 142 INTEGER, INTENT( in ) :: Kmm ! ocean time level index 142 143 !! 143 144 LOGICAL :: ll_print = .FALSE. ! =T print and flush numout … … 154 155 ! Output the initial state and forcings 155 156 IF( ninist == 1 ) THEN 156 CALL dia_wri_state( 'output.init' )157 CALL dia_wri_state( Kmm, 'output.init' ) 157 158 ninist = 0 158 159 ENDIF … … 257 258 IF( ln_abl ) THEN 258 259 ! Define the ABL grid FILE ( nid_A ) 259 CALL dia_nam( clhstnam, n write, 'grid_ABL' )260 CALL dia_nam( clhstnam, nn_write, 'grid_ABL' ) 260 261 IF(lwp) WRITE(numout,*) " Name of NETCDF file ", clhstnam ! filename 261 262 CALL histbeg( clhstnam, jpi, glamt, jpj, gphit, & ! Horizontal grid: glamt and gphit … … 414 415 #endif 415 416 416 SUBROUTINE dia_wri_state( cdfile_name, Kmm)417 SUBROUTINE dia_wri_state( Kmm, cdfile_name ) 417 418 !!--------------------------------------------------------------------- 418 419 !! *** ROUTINE dia_wri_state *** … … 427 428 !! File 'output.abort.nc' is created in case of abnormal job end 428 429 !!---------------------------------------------------------------------- 430 INTEGER , INTENT( in ) :: Kmm ! ocean time levelindex 429 431 CHARACTER (len=* ), INTENT( in ) :: cdfile_name ! name of the file created 430 INTEGER , INTENT( in ) :: Kmm ! ocean time levelindex431 432 !! 432 433 INTEGER :: inum
Note: See TracChangeset
for help on using the changeset viewer.