Changeset 1073 for trunk/NEMO/TOP_SRC/PISCES/p4zmeso.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/p4zmeso.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/PISCES/p4zmeso.F90

@@ -17 +17 @@
    USE oce_trc         !
    USE trp_trc         ! 
-   USE sms             ! 
+   USE sms_pisces      ! 
    USE prtctl_trc
    USE p4zint
@@ -29 +29 @@
    !! * Shared module variables
    REAL(wp), PUBLIC ::   &
-      xprefc = 1.0_wp       ,  &  !: 
-      xprefp = 0.2_wp       ,  &  !:
-      xprefz = 1.0_wp       ,  &  !:
+      xprefc   = 1.0_wp     ,  &  !: 
+      xprefp   = 0.2_wp     ,  &  !:
+      xprefz   = 1.0_wp     ,  &  !:
       xprefpoc = 0.0_wp     ,  &  !:
-      resrat2 = 0.005_wp    ,  &  !:
-      mzrat2 = 0.03_wp      ,  &  !:
+      resrat2  = 0.005_wp   ,  &  !:
+      mzrat2   = 0.03_wp    ,  &  !:
       grazrat2 = 0.7_wp     ,  &  !:
-      xkgraz2 = 20E-6_wp    ,  &  !:
-      unass2  = 0.3_wp      ,  & !:
-      sigma2 = 0.6_wp       ,  & !:
-      epsher2 = 0.33_wp     ,  & !:   
+      xkgraz2  = 20E-6_wp   ,  &  !:
+      unass2   = 0.3_wp     ,  &  !:
+      sigma2   = 0.6_wp     ,  &  !:
+      epsher2  = 0.33_wp    ,  &  !:   
       grazflux = 5.E3_wp