Changeset 5195 for branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/NEMO/TOP_SRC/PISCES/trcice_pisces.F90

Timestamp:

2015-04-03T13:28:22+02:00 (9 years ago)

Author:

vancop

Message:

sette modifs 2

File:

• branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/NEMO/TOP_SRC/PISCES/trcice_pisces.F90 (modified) (3 diffs)

branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/NEMO/TOP_SRC/PISCES/trcice_pisces.F90

@@ -48 +48 @@
       !!                * -1 => the ice-ocean tracer concentration ratio follows the
       !!                         ice-ocean salinity ratio
-      !!                * -2 => tracer concentration in sea ice is prescribed and
-      !!                        trc_ice_prescr is used
+      !!                * -2 => no ice-ocean tracer concentration is used
+      !!                        instead, the tracer concentration in sea ice 
+      !!                        is prescribed to trc_ice_prescr
       !! 
-      !! cn_trc_o          specifies which prescribed tracer concentration
-      !!                   should be used
-      !! 'GL' use global ocean values making distinction for Baltic Sea only
-      !! 'AA' use Arctic/Antarctic contrasted values, + Baltic
+      !! cn_trc_o  specifies which disinctions are made for prescribed tracer concentration
+      !!                * 'GL' use global ocean values making distinction for Baltic Sea only
+      !!                * 'AA' use Arctic/Antarctic contrasted values, + Baltic
       !!
       !!----------------------------------------------------------------------
@@ -223 +223 @@
       trc_ice_prescr(jpnh4) = sn_tri_nh4%trc_prescr
       cn_trc_o      (jpnh4) = sn_tri_nh4%ctrc_o
-
-      ! Dummy write
-      WRITE(numout,*) ' trc_ice_ratio :', trc_ice_ratio
-      WRITE(numout,*) ' trc_ice_prescr:', trc_ice_prescr
-      WRITE(numout,*) ' cn_trc_o      :', cn_trc_o
-      ! End dummy write
 
       !--------------------------------------------
@@ -379 +373 @@
       END DO
 
-      ! dummy write
-      DO jn = 1, jptra
-         WRITE(numout,*) jn, ' zratio : ', zratio(jn,:)
-      END DO
-      ! end dummy write
-
       !-------------------------------
       ! Sea ice tracer concentrations