Changeset 498 for trunk/NEMO/OFF_SRC/TRA/traqsr.F90

Timestamp:

2006-09-12T13:07:10+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_065:CE:change the name of namelist

File:

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

trunk/NEMO/OFF_SRC/TRA/traqsr.F90

@@ -39 +39 @@
       !! ** 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 namqsr namelist. The
+      !!      (rabs). These parameters are read in the nam_qsr namelist. The
       !!      default values correspond to clear water (type I in Jerlov' 
       !!      (1968) classification.
@@ -54 +54 @@
       !! * Local declarations
 
-      NAMELIST/namqsr/ ln_traqsr, xsi1
+      NAMELIST/nam_qsr/ ln_traqsr, xsi1
       !!----------------------------------------------------------------------
 
-      ! Read Namelist namqsr : ratio and length of penetration
+      ! Read Namelist nam_qsr : ratio and length of penetration
       ! --------------------
       REWIND ( numnam )
-      READ   ( numnam, namqsr )
+      READ   ( numnam, nam_qsr )
 
       ! Parameter control and print
@@ -69 +69 @@
          WRITE(numout,*) 'tra_qsr_init : penetration of the surface solar radiation'
          WRITE(numout,*) '~~~~~~~~~~~~'
-         WRITE(numout,*) '    Namelist namqsr : set the parameter of penetration'
+         WRITE(numout,*) '    Namelist nam_qsr : set the parameter of penetration'
          WRITE(numout,*) '        first depth of extinction        xsi1        = ',xsi1
          WRITE(numout,*) ' '
@@ -81 +81 @@
       ENDIF
 
-      IF( xsi1 < 0.e0 ) THEN
-         IF(lwp) WRITE(numout,cform_err)
-         IF(lwp) WRITE(numout,*) '             0<xsi1 not satisfied'
-         nstop = nstop + 1
-      ENDIF
+      IF( xsi1 < 0.e0  ) &
+         CALL ctl_stop( '              0<xsi1 not satisfied' )