Changeset 1511 for trunk/NEMO

Timestamp:

2009-07-21T10:59:38+02:00 (15 years ago)

Author:

cetlod

Message:

update p4zsed.F90 PISCES module to take into account OPA coding rules

File:

• trunk/NEMO/TOP_SRC/PISCES/p4zsed.F90 (modified) (7 diffs)

trunk/NEMO/TOP_SRC/PISCES/p4zsed.F90

@@ -37 +37 @@
    !! * Shared module variables
    LOGICAL, PUBLIC ::    &
-     ldustfer  = .FALSE.      ,  &  !:
-     lriver    = .FALSE.      ,  &  !:
-     lndepo    = .FALSE.      ,  &  !:
-     lsedinput = .FALSE.            !:
+     ln_dustfer  = .FALSE.      ,  &  !:
+     ln_river    = .FALSE.      ,  &  !:
+     ln_ndepo    = .FALSE.      ,  &  !:
+     ln_sedinput = .FALSE.            !:
 
    REAL(wp), PUBLIC ::   &
@@ -97 +97 @@
 
       IF( ( kt * jnt ) == nittrc000   )   CALL p4z_sed_init      ! Initialization (first time-step only)
-      IF( (jnt == 1) .and. ( ldustfer ) )  CALL p4z_sbc( kt )
+      IF( (jnt == 1) .and. ( ln_dustfer ) )  CALL p4z_sbc( kt )
 
       zstep = rfact2 / rjjss      ! Time step duration for the biology
@@ -463 +463 @@
       REAL(wp) , DIMENSION(jpi,jpj,12)    ::   zdustmo
 
-      NAMELIST/nampissed/ ldustfer, lriver, lndepo, lsedinput, sedfeinput, dustsolub
+      NAMELIST/nampissed/ ln_dustfer, ln_river, ln_ndepo, ln_sedinput, sedfeinput, dustsolub
 
 
@@ -473 +473 @@
          WRITE(numout,*) ' Namelist : nampissed '
          WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~ '
-         WRITE(numout,*) '    Dust input from the atmosphere           ldustfer  = ', ldustfer
-         WRITE(numout,*) '    River input of nutrients                 lriver    = ', lriver
-         WRITE(numout,*) '    Atmospheric deposition of N              lndepo    = ', lndepo
-         WRITE(numout,*) '    Fe input from sediments                  lsedinput = ', lsedinput
-         WRITE(numout,*) '    Coastal release of Iron                  sedfeinput =', sedfeinput
-         WRITE(numout,*) '    Solubility of the dust                   dustsolub  =', dustsolub
+         WRITE(numout,*) '    Dust input from the atmosphere           ln_dustfer  = ', ln_dustfer
+         WRITE(numout,*) '    River input of nutrients                 ln_river    = ', ln_river
+         WRITE(numout,*) '    Atmospheric deposition of N              ln_ndepo    = ', ln_ndepo
+         WRITE(numout,*) '    Fe input from sediments                  ln_sedinput = ', ln_sedinput
+         WRITE(numout,*) '    Coastal release of Iron                  sedfeinput  =', sedfeinput
+         WRITE(numout,*) '    Solubility of the dust                   dustsolub   =', dustsolub
       ENDIF
 
       ! Dust input from the atmosphere
       ! ------------------------------
-      IF( ldustfer ) THEN 
+      IF( ln_dustfer ) THEN 
          IF(lwp) WRITE(numout,*) '    Initialize dust input from atmosphere '
          IF(lwp) WRITE(numout,*) '    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '
@@ -498 +498 @@
       ! Nutrient input from rivers
       ! --------------------------
-      IF( lriver ) THEN
+      IF( ln_river ) THEN
          IF(lwp) WRITE(numout,*) '    Initialize the nutrient input by rivers from river.orca.nc file'
          IF(lwp) WRITE(numout,*) '    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
@@ -512 +512 @@
       ! Nutrient input from dust
       ! ------------------------
-      IF( lndepo ) THEN
+      IF( ln_ndepo ) THEN
          IF(lwp) WRITE(numout,*) '    Initialize the nutrient input by dust from ndeposition.orca.nc'
          IF(lwp) WRITE(numout,*) '    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
@@ -524 +524 @@
       ! Coastal and island masks
       ! ------------------------
-      IF( lsedinput ) THEN     
+      IF( ln_sedinput ) THEN     
          IF(lwp) WRITE(numout,*) '    Computation of an island mask to enhance coastal supply of iron'
          IF(lwp) WRITE(numout,*) '    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'