Changeset 13373 for NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/TOP/PISCES/trcini_pisces.F90

Timestamp:

2020-08-03T11:46:38+02:00 (4 years ago)

Author:

cetlod

Message:

TOP-05_Ethe_Agrif : 1st step of changes to successfully compile, see ticket #2508

File:

• NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/TOP/PISCES/trcini_pisces.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/TOP/PISCES/trcini_pisces.F90

@@ -79 +79 @@
       !
       INTEGER, INTENT(in)  ::  Kmm      ! time level indices
-      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
       REAL(wp) ::  zcaralk, zbicarb, zco3
       REAL(wp) ::  ztmas, ztmas1
+      REAL(wp) ::  sco2, alka0, oxyg0, po4, bioma0, silic1, no3   
       CHARACTER(len = 20)  ::  cltra
       !!----------------------------------------------------------------------
@@ -103 +97 @@
          ENDIF
       ENDIF
+      !
+      sco2   =  2.312e-3_wp
+      alka0  =  2.426e-3_wp
+      oxyg0  =  177.6e-6_wp 
+      po4    =  2.165e-6_wp 
+      bioma0 =  1.000e-8_wp  
+      silic1 =  91.51e-6_wp  
+      no3    =  30.9e-6_wp * 7.625_wp
       !
       ! Allocate PISCES arrays