Changeset 12511 for NEMO/branches/2020/r12377_ticket2386/src/SAS/diawri.F90
- Timestamp:
- 2020-03-05T12:21:05+01:00 (4 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 _r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF5 ^/vendors/AGRIF/dev@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@HEAD sette
-
- Property svn:externals
-
NEMO/branches/2020/r12377_ticket2386/src/SAS/diawri.F90
r12377 r12511 174 174 ENDIF 175 175 #if defined key_diainstant 176 zsto = nn_write * r dt176 zsto = nn_write * rn_Dt 177 177 clop = "inst("//TRIM(clop)//")" 178 178 #else 179 zsto=r dt179 zsto=rn_Dt 180 180 clop = "ave("//TRIM(clop)//")" 181 181 #endif 182 zout = nn_write * r dt183 zmax = ( nitend - nit000 + 1 ) * r dt182 zout = nn_write * rn_Dt 183 zmax = ( nitend - nit000 + 1 ) * rn_Dt 184 184 185 185 ! Define indices of the horizontal output zoom and vertical limit storage … … 202 202 203 203 ! Compute julian date from starting date of the run 204 CALL ymds2ju( nyear, nmonth, nday, r dt, zjulian )204 CALL ymds2ju( nyear, nmonth, nday, rn_Dt, zjulian ) 205 205 zjulian = zjulian - adatrj ! set calendar origin to the beginning of the experiment 206 206 IF(lwp)WRITE(numout,*) … … 224 224 CALL histbeg( clhstnam, jpi, glamt, jpj, gphit, & ! Horizontal grid: glamt and gphit 225 225 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 226 & nit000-1, zjulian, r dt, nh_T, nid_T, domain_id=nidom, snc4chunks=snc4set )226 & nit000-1, zjulian, rn_Dt, nh_T, nid_T, domain_id=nidom, snc4chunks=snc4set ) 227 227 CALL histvert( nid_T, "deptht", "Vertical T levels", & ! Vertical grid: gdept 228 228 & "m", ipk, gdept_1d, nz_T, "down" ) … … 236 236 CALL histbeg( clhstnam, jpi, glamu, jpj, gphiu, & ! Horizontal grid: glamu and gphiu 237 237 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 238 & nit000-1, zjulian, r dt, nh_U, nid_U, domain_id=nidom, snc4chunks=snc4set )238 & nit000-1, zjulian, rn_Dt, nh_U, nid_U, domain_id=nidom, snc4chunks=snc4set ) 239 239 CALL histvert( nid_U, "depthu", "Vertical U levels", & ! Vertical grid: gdept 240 240 & "m", ipk, gdept_1d, nz_U, "down" ) … … 248 248 CALL histbeg( clhstnam, jpi, glamv, jpj, gphiv, & ! Horizontal grid: glamv and gphiv 249 249 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 250 & nit000-1, zjulian, r dt, nh_V, nid_V, domain_id=nidom, snc4chunks=snc4set )250 & nit000-1, zjulian, rn_Dt, nh_V, nid_V, domain_id=nidom, snc4chunks=snc4set ) 251 251 CALL histvert( nid_V, "depthv", "Vertical V levels", & ! Vertical grid : gdept 252 252 & "m", ipk, gdept_1d, nz_V, "down" ) … … 261 261 CALL histbeg( clhstnam, jpi, glamt, jpj, gphit, & ! Horizontal grid: glamt and gphit 262 262 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 263 & nit000-1, zjulian, r dt, nh_A, nid_A, domain_id=nidom, snc4chunks=snc4set )263 & nit000-1, zjulian, rn_Dt, nh_A, nid_A, domain_id=nidom, snc4chunks=snc4set ) 264 264 CALL histvert( nid_A, "ght_abl", "Vertical T levels", & ! Vertical grid: gdept 265 265 & "m", ipka, ght_abl(2:jpka), nz_A, "up" )
Note: See TracChangeset
for help on using the changeset viewer.