Changeset 654 for trunk/NEMO

Timestamp:

2007-04-18T11:30:57+02:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_update_015:CE:read in namelist flag to use or not the biological fluxes for light

File:

• trunk/NEMO/OFF_SRC/TRA/traqsr.F90 (modified) (4 diffs)

trunk/NEMO/OFF_SRC/TRA/traqsr.F90

@@ -27 +27 @@
    !! * Module variables
    REAL(wp), PUBLIC ::  & !!! * penetrative solar radiation namelist *
-      xsi1 = 0.35_wp     ! first depth of extinction 
+      xsi1 = 0.35_wp    ! first depth of extinction 
+   LOGICAL , PUBLIC ::   ln_qsr_sms = .false. ! flag to use or not the biological fluxes for light
+
 
 CONTAINS
@@ -39 +41 @@
       !! ** Method  :   The profile of solar radiation within the ocean is set
       !!      from two length scale of penetration (xsr1,xsr2) and a ratio
-      !!      (rabs). These parameters are read in the nam_qsr namelist. The
+      !!      (rabs). These parameters are read in the namqsr namelist. The
       !!      default values correspond to clear water (type I in Jerlov' 
       !!      (1968) classification.
@@ -54 +56 @@
       !! * Local declarations
 
-      NAMELIST/nam_qsr/ ln_traqsr, xsi1
+      NAMELIST/namqsr/ ln_traqsr, xsi1
       !!----------------------------------------------------------------------
 
-      ! Read Namelist nam_qsr : ratio and length of penetration
+      ! Read Namelist namqsr : ratio and length of penetration
       ! --------------------
       REWIND ( numnam )
-      READ   ( numnam, nam_qsr )
+      READ   ( numnam, namqsr )
 
       ! Parameter control and print
@@ -69 +71 @@
          WRITE(numout,*) 'tra_qsr_init : penetration of the surface solar radiation'
          WRITE(numout,*) '~~~~~~~~~~~~'
-         WRITE(numout,*) '    Namelist nam_qsr : set the parameter of penetration'
+         WRITE(numout,*) '    Namelist namqsr : set the parameter of penetration'
          WRITE(numout,*) '        first depth of extinction        xsi1        = ',xsi1
+         WRITE(numout,*) '     Biological fluxes for light(Y/N) ln_qsr_sms  = ',ln_qsr_sms
          WRITE(numout,*) ' '
         END IF