- Timestamp:
- 2019-11-06T17:01:36+01:00 (4 years ago)
- File:
-
- 1 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 )
Note: See TracChangeset
for help on using the changeset viewer.