Changeset 1454

Timestamp:

2009-05-19T13:28:19+02:00 (15 years ago)

Author:

cetlod

Message:

rename local variable nadv to nqsr in traqsr.F90 module, see ticket:431

File:

• trunk/NEMO/OPA_SRC/TRA/traqsr.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRA/traqsr.F90

@@ -231 +231 @@
       INTEGER  ::   ji, jj, jk            ! dummy loop indices
       INTEGER  ::   irgb, ierror          ! temporary integer
-      INTEGER  ::   ioptio, nadv          ! temporary integer
+      INTEGER  ::   ioptio, nqsr          ! temporary integer
       REAL(wp) ::   zc0  , zc1            ! temporary scalars
       REAL(wp) ::   zc2  , zc3  , zchl    !    -         -
@@ -288 +288 @@
            &               ' otherwise, we force the model to run without light penetration' )
          ENDIF
-         IF( ioptio == 0 .OR. ioptio > 1    )   nadv =  1
-         IF( ln_qsr_rgb .AND. nn_chldta == 0 )   nadv =  2
-         IF( ln_qsr_rgb .AND. nn_chldta == 1 )   nadv =  3
-         IF( ln_qsr_2bd                      )   nadv =  4
-         IF( ln_qsr_bio                      )   nadv =  5
+         IF( ioptio == 0 .OR. ioptio > 1     )   nqsr =  1
+         IF( ln_qsr_rgb .AND. nn_chldta == 0 )   nqsr =  2
+         IF( ln_qsr_rgb .AND. nn_chldta == 1 )   nqsr =  3
+         IF( ln_qsr_2bd                      )   nqsr =  4
+         IF( ln_qsr_bio                      )   nqsr =  5
          !
          IF(lwp) THEN                   ! Print the choice
             WRITE(numout,*)
-            IF( nadv ==  1 )   WRITE(numout,*) '         No light penetration '
-            IF( nadv ==  2 )   WRITE(numout,*) '         R-G-B  light penetration - Constant Chlorophyll'
-            IF( nadv ==  3 )   WRITE(numout,*) '         R-G-B  light penetration - Chl data '
-            IF( nadv ==  4 )   WRITE(numout,*) '         2 band light penetration'
-            IF( nadv ==  5 )   WRITE(numout,*) '         bio-model light penetration'
+            IF( nqsr ==  1 )   WRITE(numout,*) '         No light penetration '
+            IF( nqsr ==  2 )   WRITE(numout,*) '         R-G-B  light penetration - Constant Chlorophyll'
+            IF( nqsr ==  3 )   WRITE(numout,*) '         R-G-B  light penetration - Chl data '
+            IF( nqsr ==  4 )   WRITE(numout,*) '         2 band light penetration'
+            IF( nqsr ==  5 )   WRITE(numout,*) '         bio-model light penetration'
          ENDIF
          !