- Timestamp:
- 2016-11-28T17:04:10+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/TOP_SRC/trcdia.F90
r5836 r7351 106 106 CHARACTER (len=20) :: cltra, cltrau 107 107 CHARACTER (len=80) :: cltral 108 REAL(wp) :: zsto, zout , zdt108 REAL(wp) :: zsto, zout 109 109 INTEGER :: iimi, iima, ijmi, ijma, ipk, it, itmod, iiter 110 110 !!---------------------------------------------------------------------- … … 118 118 119 119 ! Define frequency of output and means 120 zdt = rdt121 120 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 122 121 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) … … 126 125 clop = "inst("//TRIM(clop)//")" 127 126 # else 128 zsto = zdt127 zsto = rdt 129 128 clop = "ave("//TRIM(clop)//")" 130 129 # endif 131 zout = nn_writetrc * zdt130 zout = nn_writetrc * rdt 132 131 133 132 ! Define indices of the horizontal output zoom and vertical limit storage … … 182 181 CALL histbeg( clhstnam, jpi, glamt, jpj, gphit, & 183 182 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 184 & iiter, zjulian, zdt, nhorit5, nit5 , domain_id=nidom, snc4chunks=snc4set)183 & iiter, zjulian, rdt, nhorit5, nit5 , domain_id=nidom, snc4chunks=snc4set) 185 184 186 185 ! Vertical grid for tracer : gdept … … 250 249 INTEGER :: jl 251 250 INTEGER :: iimi, iima, ijmi, ijma, ipk, it, itmod, iiter 252 REAL(wp) :: zsto, zout , zdt251 REAL(wp) :: zsto, zout 253 252 !!---------------------------------------------------------------------- 254 253 … … 261 260 ! 262 261 ! Define frequency of output and means 263 zdt = rdt264 262 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 265 263 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) 266 264 ENDIF 267 265 # if defined key_diainstant 268 zsto = nn_writedia * zdt266 zsto = nn_writedia * rdt 269 267 clop = "inst("//TRIM(clop)//")" 270 268 # else 271 zsto = zdt269 zsto = rdt 272 270 clop = "ave("//TRIM(clop)//")" 273 271 # endif 274 zout = nn_writedia * zdt272 zout = nn_writedia * rdt 275 273 276 274 ! Define indices of the horizontal output zoom and vertical limit storage … … 302 300 CALL histbeg( clhstnam, jpi, glamt, jpj, gphit, & 303 301 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 304 & iiter, zjulian, zdt, nhoritd, nitd , domain_id=nidom, snc4chunks=snc4set )302 & iiter, zjulian, rdt, nhoritd, nitd , domain_id=nidom, snc4chunks=snc4set ) 305 303 306 304 ! Vertical grid for 2d and 3d arrays … … 387 385 INTEGER :: ji, jj, jk, jl 388 386 INTEGER :: iimi, iima, ijmi, ijma, ipk, it, itmod, iiter 389 REAL(wp) :: zsto, zout , zdt387 REAL(wp) :: zsto, zout 390 388 !!---------------------------------------------------------------------- 391 389 … … 398 396 399 397 ! Define frequency of output and means 400 zdt = rdt401 398 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 402 399 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) 403 400 ENDIF 404 401 # if defined key_diainstant 405 zsto = nn_writebio * zdt402 zsto = nn_writebio * rdt 406 403 clop = "inst("//TRIM(clop)//")" 407 404 # else 408 zsto = zdt405 zsto = rdt 409 406 clop = "ave("//TRIM(clop)//")" 410 407 # endif 411 zout = nn_writebio * zdt408 zout = nn_writebio * rdt 412 409 413 410 ! Define indices of the horizontal output zoom and vertical limit storage … … 435 432 CALL histbeg( clhstnam, jpi, glamt, jpj, gphit, & 436 433 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 437 & iiter, zjulian, zdt, nhoritb, nitb , domain_id=nidom, snc4chunks=snc4set )434 & iiter, zjulian, rdt, nhoritb, nitb , domain_id=nidom, snc4chunks=snc4set ) 438 435 ! Vertical grid for biological trends 439 436 CALL histvert(nitb, 'deptht', 'Vertical T levels', 'm', ipk, gdept_1d, ndepitb)
Note: See TracChangeset
for help on using the changeset viewer.