Changeset 768 for branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90

Timestamp:

2007-12-16T15:46:18+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - create 1 trclsm_ module by trc model (CFC, LOBSTER, PISCES..) + some bug corrections

File:

• branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90 (moved) (moved from branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trclsm.pisces.h90) (4 diffs)

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

@@ -3 +3 @@
    !! TOP :   Definition some run parameter for PISCES biological model
    !!----------------------------------------------------------------------
-   !! History :    -  !  1999-10 (M.A. Foujols, M. Levy) original code
-   !!              -  !  2000-01 (L. Bopp) hamocc3, p3zd
-   !!             1.0 !  2003-08 (C. Ethe)  module F90
-   !!----------------------------------------------------------------------
-
-   !!----------------------------------------------------------------------
-   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) 
-   !! $Id $ 
+   !! History :    -   !  1999-10 (M.A. Foujols, M. Levy) original code
+   !!              -   !  2000-01 (L. Bopp) hamocc3, p3zd
+   !!             1.0  !  2003-08 (C. Ethe)  module F90
+   !!             2.0  !  2007-12  (C. Ethe, G. Madec) from trclsm.pisces.h90
+   !!----------------------------------------------------------------------
+#if defined key_trc_pisces
+   !!----------------------------------------------------------------------
+   !!   'key_trc_pisces'   :                               PISCES bio-model
+   !!----------------------------------------------------------------------
+   !! trc_lsm_pisces       : PISCES model namelist read
+   !!----------------------------------------------------------------------
+   USE oce_trc         ! Ocean variables
+   USE par_trc         ! TOP parameters
+   USE trc             ! TOP variables
+   USE sms             ! sms trends
+
+   IMPLICIT NONE
+   PRIVATE
+
+   PUBLIC   trc_lsm_pisces   ! called by trclsm.F90 module
+
+   !!----------------------------------------------------------------------
+   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) 
+   !! $Id$ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -16 +32 @@
 CONTAINS
 
-   SUBROUTINE trc_lsm
+   SUBROUTINE trc_lsm_pisces
       !!----------------------------------------------------------------------
-      !!                     ***  trc_lsm  ***  
+      !!                     ***  trc_lsm_pisces  ***  
       !!
       !! ** Purpose :   read PISCES namelist
@@ -47 +63 @@
       !!----------------------------------------------------------------------
 
-
       IF(lwp) WRITE(numout,*)
-      IF(lwp) WRITE(numout,*) ' trc_lsm : read PISCES namelists'
-      IF(lwp) WRITE(numout,*) ' ~~~~~~~'
+      IF(lwp) WRITE(numout,*) ' trc_lsm_pisces : read PISCES namelists'
+      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
 
 
@@ -202 +217 @@
 #endif
       !
-   END SUBROUTINE trc_lsm
+   END SUBROUTINE trc_lsm_pisces
+
+#else
+   !!----------------------------------------------------------------------
+   !!  Dummy module :                                   No PISCES bio-model
+   !!----------------------------------------------------------------------
+CONTAINS
+   SUBROUTINE trc_lsm_pisces                      ! Empty routine
+   END  SUBROUTINE  trc_lsm_pisces
+#endif  
+
+   !!======================================================================
+END MODULE trclsm_pisces