Changeset 9169 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

Timestamp:

2017-12-26T17:32:56+01:00 (6 years ago)

Author:

gm

Message:

dev_merge_2017: all SRC: finalize the removal of useless warning when reading namelist_cfg + remove all nn_closea + nn_msh replaced by a logical

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90 (modified) (4 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

@@ -379 +379 @@
       CASE( np_RGB , np_RGBc )         !==  Red-Green-Blue light penetration  ==!
          !                             
-         IF(lwp)   WRITE(numout,*) '   R-G-B   light penetration '
+         IF(lwp)   WRITE(numout,*) '   ==>>>   R-G-B   light penetration '
          !
          CALL trc_oce_rgb( rkrgb )                 ! tabulated attenuation coef.
@@ -388 +388 @@
          !
          IF( nqsr == np_RGBc ) THEN                ! Chl data : set sf_chl structure
-            IF(lwp) WRITE(numout,*) '        Chlorophyll read in a file'
+            IF(lwp) WRITE(numout,*) '   ==>>>   Chlorophyll read in a file'
             ALLOCATE( sf_chl(1), STAT=ierror )
             IF( ierror > 0 ) THEN
@@ -400 +400 @@
          ENDIF
          IF( nqsr == np_RGB ) THEN                 ! constant Chl
-            IF(lwp) WRITE(numout,*) '        Constant Chlorophyll concentration = 0.05'
+            IF(lwp) WRITE(numout,*) '   ==>>>   Constant Chlorophyll concentration = 0.05'
          ENDIF
          !
       CASE( np_2BD )                   !==  2 bands light penetration  ==!
          !
-         IF(lwp)  WRITE(numout,*) '   2 bands light penetration'
+         IF(lwp)  WRITE(numout,*) '   ==>>>   2 bands light penetration'
          !
          nksr = trc_oce_ext_lev( rn_si1, 100._wp )    ! level of light extinction
@@ -412 +412 @@
       CASE( np_BIO )                   !==  BIO light penetration  ==!
          !
-         IF(lwp) WRITE(numout,*) '   bio-model light penetration'
+         IF(lwp) WRITE(numout,*) '   ==>>>   bio-model light penetration'
          IF( .NOT.lk_top )   CALL ctl_stop( 'No bio model : ln_qsr_bio = true impossible ' )
          !