Changeset 12406 for NEMO/branches/2020/KERNEL-03_Storkey_Coward_RK3_stage2/tests/CANAL/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/CANAL/MY_SRC/diawri.F90
r12377 r12406 563 563 clop = "x" ! no use of the mask value (require less cpu time and otherwise the model crashes) 564 564 #if defined key_diainstant 565 zsto = nn_write * r dt565 zsto = nn_write * rn_Dt 566 566 clop = "inst("//TRIM(clop)//")" 567 567 #else 568 zsto=r dt568 zsto=rn_Dt 569 569 clop = "ave("//TRIM(clop)//")" 570 570 #endif 571 zout = nn_write * r dt572 zmax = ( nitend - nit000 + 1 ) * r dt571 zout = nn_write * rn_Dt 572 zmax = ( nitend - nit000 + 1 ) * rn_Dt 573 573 574 574 ! Define indices of the horizontal output zoom and vertical limit storage … … 590 590 591 591 ! Compute julian date from starting date of the run 592 CALL ymds2ju( nyear, nmonth, nday, r dt, zjulian )592 CALL ymds2ju( nyear, nmonth, nday, rn_Dt, zjulian ) 593 593 zjulian = zjulian - adatrj ! set calendar origin to the beginning of the experiment 594 594 IF(lwp)WRITE(numout,*) … … 612 612 CALL histbeg( clhstnam, jpi, glamt, jpj, gphit, & ! Horizontal grid: glamt and gphit 613 613 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 614 & nit000-1, zjulian, r dt, nh_T, nid_T, domain_id=nidom, snc4chunks=snc4set )614 & nit000-1, zjulian, rn_Dt, nh_T, nid_T, domain_id=nidom, snc4chunks=snc4set ) 615 615 CALL histvert( nid_T, "deptht", "Vertical T levels", & ! Vertical grid: gdept 616 616 & "m", ipk, gdept_1d, nz_T, "down" ) … … 648 648 CALL histbeg( clhstnam, jpi, glamu, jpj, gphiu, & ! Horizontal grid: glamu and gphiu 649 649 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 650 & nit000-1, zjulian, r dt, nh_U, nid_U, domain_id=nidom, snc4chunks=snc4set )650 & nit000-1, zjulian, rn_Dt, nh_U, nid_U, domain_id=nidom, snc4chunks=snc4set ) 651 651 CALL histvert( nid_U, "depthu", "Vertical U levels", & ! Vertical grid: gdept 652 652 & "m", ipk, gdept_1d, nz_U, "down" ) … … 661 661 CALL histbeg( clhstnam, jpi, glamv, jpj, gphiv, & ! Horizontal grid: glamv and gphiv 662 662 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 663 & nit000-1, zjulian, r dt, nh_V, nid_V, domain_id=nidom, snc4chunks=snc4set )663 & nit000-1, zjulian, rn_Dt, nh_V, nid_V, domain_id=nidom, snc4chunks=snc4set ) 664 664 CALL histvert( nid_V, "depthv", "Vertical V levels", & ! Vertical grid : gdept 665 665 & "m", ipk, gdept_1d, nz_V, "down" ) … … 674 674 CALL histbeg( clhstnam, jpi, glamt, jpj, gphit, & ! Horizontal grid: glamt and gphit 675 675 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 676 & nit000-1, zjulian, r dt, nh_W, nid_W, domain_id=nidom, snc4chunks=snc4set )676 & nit000-1, zjulian, rn_Dt, nh_W, nid_W, domain_id=nidom, snc4chunks=snc4set ) 677 677 CALL histvert( nid_W, "depthw", "Vertical W levels", & ! Vertical grid: gdepw 678 678 & "m", ipk, gdepw_1d, nz_W, "down" )
Note: See TracChangeset
for help on using the changeset viewer.