Changeset 5193 for branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90

Timestamp:

2015-04-03T10:48:51+02:00 (9 years ago)

Author:

vancop

Message:

A few cosmetic changes before SETTE

File:

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

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

@@ -216 +216 @@
 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