Changeset 11869 for NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OFF
- Timestamp:
- 2019-11-06T17:01:36+01:00 (4 years ago)
- Location:
- NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OFF
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OFF/dtadyn.F90
r11536 r11869 176 176 CALL eos( tsn, rhd, rhop, gdept_0(:,:,:) ) ! In any case, we need rhop 177 177 ! 178 IF(ln_ctl ) THEN! print control178 IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN ! print control 179 179 CALL prt_ctl(tab3d_1=tsn(:,:,:,jp_tem), clinfo1=' tn - : ', mask1=tmask, kdim=jpk ) 180 180 CALL prt_ctl(tab3d_1=tsn(:,:,:,jp_sal), clinfo1=' sn - : ', mask1=tmask, kdim=jpk ) … … 444 444 CALL eos ( tsn, rhd, rhop, gdept_0(:,:,:) ) ! In any case, we need rhop 445 445 446 IF(ln_ctl ) THEN ! print control446 IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN ! print control 447 447 CALL prt_ctl(tab3d_1=tsn(:,:,:,jp_tem), clinfo1=' tn - : ', mask1=tmask, kdim=jpk ) 448 448 CALL prt_ctl(tab3d_1=tsn(:,:,:,jp_sal), clinfo1=' sn - : ', mask1=tmask, kdim=jpk ) -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OFF/nemogcm.F90
r11866 r11869 392 392 ! ! Parameter control 393 393 ! 394 IF( ln_ctl ) THEN! sub-domain area indices for the control prints394 IF( ln_ctl .OR. sn_cfctl%l_mppout ) THEN ! sub-domain area indices for the control prints 395 395 IF( lk_mpp .AND. jpnij > 1 ) THEN 396 396 isplt = jpni ; jsplt = jpnj ; ijsplt = jpni*jpnj ! the domain is forced to the real split domain … … 509 509 sn_cfctl%l_mppout = setto 510 510 sn_cfctl%l_mpptop = setto 511 sn_cfctl%l_oasout = setto 511 512 END SUBROUTINE nemo_set_cfctl 512 513
Note: See TracChangeset
for help on using the changeset viewer.