Changeset 5371

Timestamp:

2015-06-05T19:12:49+02:00 (10 years ago)

Author:

cetlod

Message:

dev_r5204_CNRS_PISCES_dcy : fix some inconsistencies

File:

• branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90 (modified) (1 diff)

branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90

@@ -218 +218 @@
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampissbc in configuration namelist', lwp )
       IF(lwm) WRITE ( numonp, nampissbc )
+
+      IF ( ( nn_ice_tr >= 0 ) .AND. ln_ironice ) THEN
+         WRITE(numout,*) ' ln_ironice incompatible with nn_ice_tr = ', nn_ice_tr
+         WRITE(numout,*) ' Specify your sea ice iron concentration in nampisice instead '
+         WRITE(numout,*) ' ln_ironice is forced to .FALSE. '
+         ln_ironice = .FALSE.
+      ENDIF
 
       IF(lwp) THEN