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

trunk/NEMO/TOP_SRC/PISCES/p4zsed.F90

@@ -18 +18 @@
    USE oce_trc         !
    USE trp_trc
-   USE sms
+   USE sms_pisces
    USE lib_mpp
    USE prtctl_trc
@@ -34 +34 @@
    PRIVATE
 
-   PUBLIC   p4z_sed    ! called in p4zprg.F90
+   PUBLIC   p4z_sed   
 
    !! * Shared module variables
-   LOGICAL, PUBLIC ::    bdustfer = .FALSE.      ,  &  !:
-     &                   briver = .FALSE.        ,  &  !:
-     &                   bndepo = .FALSE.        ,  &  !:
-     &                   bsedinput = .FALSE.           !:
-
-   REAL(wp), PUBLIC ::   sedfeinput = 1.E-9_wp   ,  &  !:
-     &                   dustsolub  = 0.014_wp         !:
+   LOGICAL, PUBLIC ::    &
+     bdustfer  = .FALSE.      ,  &  !:
+     briver    = .FALSE.      ,  &  !:
+     bndepo    = .FALSE.      ,  &  !:
+     bsedinput = .FALSE.            !:
+
+   REAL(wp), PUBLIC ::   &
+     sedfeinput = 1.E-9_wp   ,  &  !:
+     dustsolub  = 0.014_wp         !:
 
    !! * Module variables