Changeset 1073 for trunk/NEMO/TOP_SRC/PISCES/p4zlim.F90

Timestamp:

2008-06-05T14:15:34+02:00 (16 years ago)

Author:

cetlod

Message:

update PISCES model, see ticket:190

File:

• trunk/NEMO/TOP_SRC/PISCES/p4zlim.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/PISCES/p4zlim.F90

@@ -17 +17 @@
    USE oce_trc         !
    USE trp_trc         ! 
-   USE sms             ! 
+   USE sms_pisces      ! 
 
    IMPLICIT NONE
    PRIVATE
 
-   PUBLIC   p4z_lim    ! called in p4zprg.F90
+   PUBLIC p4z_lim    
 
    !! * Shared module variables
-   REAL(wp), PUBLIC ::   conc0  = 2.e-6_wp         ,  &  !:
-     &                   conc1  = 10.e-6_wp        ,  &  !:
-     &                   conc2  = 2.e-11_wp        ,  &  !:
-     &                   conc2m = 8.E-11_wp        ,  &  !:
-     &                   conc3  = 1.e-10_wp        ,  &  !:
-     &                   conc3m = 4.e-10_wp        ,  &  !:
-     &                   concnnh4  = 1.e-7_wp      ,  &  !:
-     &                   concdnh4  = 5.e-7_wp      ,  &   !:
-     &                   xksi1     = 2.E-6_wp      ,  &   !:
-     &                   xksi2     = 3.33E-6_wp    ,  &   !:
-     &                   xkdoc     = 417.E-6_wp    ,  &   !:
-     &                   caco3r    = 0.3_wp               !:
+   REAL(wp), PUBLIC ::   &
+     conc0     = 2.e-6_wp      ,  &  !:
+     conc1     = 10.e-6_wp     ,  &  !:
+     conc2     = 2.e-11_wp     ,  &  !:
+     conc2m    = 8.E-11_wp     ,  &  !:
+     conc3     = 1.e-10_wp     ,  &  !:
+     conc3m    = 4.e-10_wp     ,  &  !:
+     concnnh4  = 1.e-7_wp      ,  &  !:
+     concdnh4  = 5.e-7_wp      ,  &  !:
+     xksi1     = 2.E-6_wp      ,  &  !:
+     xksi2     = 3.33E-6_wp    ,  &  !:
+     xkdoc     = 417.E-6_wp    ,  &  !:
+     caco3r    = 0.3_wp              !: