Changeset 9169 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.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/TOP_SRC/PISCES/trcini_pisces.F90 (modified) (9 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

@@ -37 +37 @@
       !! ** Purpose :   Initialisation of the PISCES biochemical model
       !!----------------------------------------------------------------------
-
       !
       CALL trc_nam_pisces
@@ -46 +45 @@
 
    END SUBROUTINE trc_ini_pisces
+
 
    SUBROUTINE p4z_ini
@@ -53 +53 @@
       !! ** Purpose :   Initialisation of the PISCES biochemical model
       !!----------------------------------------------------------------------
-      !
       USE p4zsms          ! Main P4Z routine
       USE p4zche          !  Chemical model
@@ -76 +75 @@
       USE p5zmeso         !  Sources and sinks of mesozooplankton
       USE p5zmort         !  Mortality terms for phytoplankton
-
-      !
-      REAL(wp), SAVE :: sco2   =  2.312e-3_wp
-      REAL(wp), SAVE :: alka0  =  2.426e-3_wp
-      REAL(wp), SAVE :: oxyg0  =  177.6e-6_wp 
-      REAL(wp), SAVE :: po4    =  2.165e-6_wp 
-      REAL(wp), SAVE :: bioma0 =  1.000e-8_wp  
-      REAL(wp), SAVE :: silic1 =  91.51e-6_wp  
-      REAL(wp), SAVE :: no3    =  30.9e-6_wp * 7.625_wp
+      !
+      REAL(wp), SAVE ::   sco2   =  2.312e-3_wp
+      REAL(wp), SAVE ::   alka0  =  2.426e-3_wp
+      REAL(wp), SAVE ::   oxyg0  =  177.6e-6_wp 
+      REAL(wp), SAVE ::   po4    =  2.165e-6_wp 
+      REAL(wp), SAVE ::   bioma0 =  1.000e-8_wp  
+      REAL(wp), SAVE ::   silic1 =  91.51e-6_wp  
+      REAL(wp), SAVE ::   no3    =  30.9e-6_wp * 7.625_wp
       !
       INTEGER  ::  ji, jj, jk, jn, ierr
@@ -90 +88 @@
       REAL(wp) ::  ztmas, ztmas1
       CHARACTER(len = 20)  ::  cltra
-
-      !!----------------------------------------------------------------------
-
+      !!----------------------------------------------------------------------
+      !
       IF(lwp) THEN
          WRITE(numout,*)
          IF( ln_p4z ) THEN 
-            WRITE(numout,*) ' p4z_ini :   PISCES biochemical model initialisation'
+            WRITE(numout,*) 'p4z_ini :   PISCES biochemical model initialisation'
+            WRITE(numout,*) '~~~~~~~'
          ELSE
-            WRITE(numout,*) ' p5z_ini :   PISCES biochemical model initialisation'
-            WRITE(numout,*) '             With variable stoichiometry'
+            WRITE(numout,*) 'p5z_ini :   PISCES biochemical model initialisation'
+            WRITE(numout,*) '~~~~~~~     With variable stoichiometry'
          ENDIF
-         WRITE(numout,*) ' ~~~~~~~~~~~~~~'
       ENDIF
       !
@@ -170 +167 @@
         IF( cltra == 'LGW'      )   jplgw = jn      !: Weak ligands
         IF( cltra == 'LFe'      )   jpfep = jn      !: Fe nanoparticle
-      ENDDO
+      END DO
 
       CALL p4z_sms_init       !  Maint routine
-      !                                            ! Time-step
+      !
 
       ! Set biological ratios
@@ -275 +272 @@
 
       IF(lwp) WRITE(numout,*) 
-      IF(lwp) WRITE(numout,*) 'Initialization of PISCES tracers done'
+      IF(lwp) WRITE(numout,*) '   ==>>>   Initialization of PISCES tracers done'
       IF(lwp) WRITE(numout,*) 
       !
    END SUBROUTINE p4z_ini
+
 
    SUBROUTINE p2z_ini
@@ -298 +296 @@
       IF(lwp) WRITE(numout,*)
       IF(lwp) WRITE(numout,*) ' p2z_ini :   LOBSTER biochemical model initialisation'
-      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
+      IF(lwp) WRITE(numout,*) ' ~~~~~~~'
 
       ierr =        sms_pisces_alloc()          
@@ -346 +344 @@
       !
       IF(lwp) WRITE(numout,*) 
-      IF(lwp) WRITE(numout,*) 'Initialization of LOBSTER tracers done'
+      IF(lwp) WRITE(numout,*) '   ==>>>   Initialization of LOBSTER tracers done'
       IF(lwp) WRITE(numout,*) 
       !