Changeset 773 for branches/dev_001_GM/NEMO/TOP_SRC/PISCES

Timestamp:

2007-12-17T17:55:32+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - small changes : compilation OK

Location:

branches/dev_001_GM/NEMO/TOP_SRC/PISCES

Files:

• trcini_pisces.F90 (modified) (2 diffs)
• trclsm_pisces.F90 (modified) (1 diff)

branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

@@ -19 +19 @@
    USE trccfc          ! CFC sms trends
    USE sms             ! Source Minus Sink variables
+   USE oce_trc         ! ocean variables
+   USE trp_trc         !
+
    USE iom
 
@@ -179 +182 @@
       DO jj = 2 , jpjm1
          DO ji = 2, jpim1
-            zcoef = e1t(ji,jj) * e2t(ji,jj) * fse3t(ji,jj,1)) * tmask(ji,jj,1) * tmask_i(ji,jj) * raass
+            zcoef = e1t(ji,jj) * e2t(ji,jj) * fse3t(ji,jj,1) * tmask(ji,jj,1) * tmask_i(ji,jj) * raass
             rivpo4input = rivpo4input + rivinp(ji,jj) * zcoef
             rivalkinput = rivalkinput + cotdep(ji,jj) * zcoef

branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90

@@ -1 @@
-   !!----------------------------------------------------------------------
-   !!                     ***  trclsm.pisces.h90  ***  
-   !! TOP :   Definition some run parameter for PISCES biological model
-   !!----------------------------------------------------------------------
+MODULE trclsm_pisces
+   !!======================================================================
+   !!                      ***  MODULE trclsm_lobster  ***
+   !! TOP :   initialisation of some run parameters for PISCES bio-model
+   !!======================================================================
    !! History :    -   !  1999-10 (M.A. Foujols, M. Levy) original code
    !!              -   !  2000-01 (L. Bopp) hamocc3, p3zd