- 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/OCE/nemogcm.F90
r11866 r11869 559 559 ! ! Parameter control 560 560 ! 561 IF( ln_ctl ) THEN! sub-domain area indices for the control prints561 IF( ln_ctl .OR. sn_cfctl%l_mppout .OR. sn_cfctl%l_mpptop ) THEN ! sub-domain area indices for the control prints 562 562 IF( lk_mpp .AND. jpnij > 1 ) THEN 563 563 isplt = jpni ; jsplt = jpnj ; ijsplt = jpni*jpnj ! the domain is forced to the real split domain … … 691 691 sn_cfctl%l_mppout = setto 692 692 sn_cfctl%l_mpptop = setto 693 sn_cfctl%l_oasout = setto 693 694 END SUBROUTINE nemo_set_cfctl 694 695
Note: See TracChangeset
for help on using the changeset viewer.