Changeset 12406 for NEMO/branches/2020/KERNEL-03_Storkey_Coward_RK3_stage2/tests/STATION_ASF/MY_SRC/diawri.F90
- Timestamp:
- 2020-02-19T10:22:15+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/KERNEL-03_Storkey_Coward_RK3_stage2/tests/STATION_ASF/MY_SRC/diawri.F90
r12353 r12406 168 168 clop = "x" ! no use of the mask value (require less cpu time and otherwise the model crashes) 169 169 #if defined key_diainstant 170 zsto = nn_write * r dt170 zsto = nn_write * rn_Dt 171 171 clop = "inst("//TRIM(clop)//")" 172 172 #else 173 zsto=r dt173 zsto=rn_Dt 174 174 clop = "ave("//TRIM(clop)//")" 175 175 #endif 176 zout = nn_write * r dt177 zmax = ( nitend - nit000 + 1 ) * r dt176 zout = nn_write * rn_Dt 177 zmax = ( nitend - nit000 + 1 ) * rn_Dt 178 178 179 179 ! Define indices of the horizontal output zoom and vertical limit storage … … 195 195 196 196 ! Compute julian date from starting date of the run 197 CALL ymds2ju( nyear, nmonth, nday, r dt, zjulian )197 CALL ymds2ju( nyear, nmonth, nday, rn_Dt, zjulian ) 198 198 zjulian = zjulian - adatrj ! set calendar origin to the beginning of the experiment 199 199 IF(lwp)WRITE(numout,*) … … 217 217 CALL histbeg( clhstnam, jpi, glamt, jpj, gphit, & ! Horizontal grid: glamt and gphit 218 218 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 219 & nit000-1, zjulian, r dt, nh_T, nid_T, domain_id=nidom, snc4chunks=snc4set )219 & nit000-1, zjulian, rn_Dt, nh_T, nid_T, domain_id=nidom, snc4chunks=snc4set ) 220 220 CALL histvert( nid_T, "deptht", "Vertical T levels", & ! Vertical grid: gdept 221 221 & "m", ipk, gdept_1d, nz_T, "down" ) … … 229 229 CALL histbeg( clhstnam, jpi, glamu, jpj, gphiu, & ! Horizontal grid: glamu and gphiu 230 230 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 231 & nit000-1, zjulian, r dt, nh_U, nid_U, domain_id=nidom, snc4chunks=snc4set )231 & nit000-1, zjulian, rn_Dt, nh_U, nid_U, domain_id=nidom, snc4chunks=snc4set ) 232 232 CALL histvert( nid_U, "depthu", "Vertical U levels", & ! Vertical grid: gdept 233 233 & "m", ipk, gdept_1d, nz_U, "down" ) … … 241 241 CALL histbeg( clhstnam, jpi, glamv, jpj, gphiv, & ! Horizontal grid: glamv and gphiv 242 242 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 243 & nit000-1, zjulian, r dt, nh_V, nid_V, domain_id=nidom, snc4chunks=snc4set )243 & nit000-1, zjulian, rn_Dt, nh_V, nid_V, domain_id=nidom, snc4chunks=snc4set ) 244 244 CALL histvert( nid_V, "depthv", "Vertical V levels", & ! Vertical grid : gdept 245 245 & "m", ipk, gdept_1d, nz_V, "down" )
Note: See TracChangeset
for help on using the changeset viewer.