Changeset 768 for branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trclsm_lobster.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/LOBSTER/trclsm_lobster.F90 (moved) (moved from branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trclsm.lobster1.h90) (4 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trclsm_lobster.F90

@@ -1 @@
-   !!----------------------------------------------------------------------
-   !!                     ***  trclsm.lobster1.h90  ***  
-   !! TOP :   Definition some run parameter for LOBSTER biological model
-   !!----------------------------------------------------------------------
-   !! History :    -  !  1999-10 (M.A. Foujols, M. Levy) original code
-   !!              -  !  2000-12 (O. Aumont, E. Kestenare) add sediments
-   !!             1.0 !  2003-08 (C. Ethe)  Original code
-   !!----------------------------------------------------------------------
-
-   !!----------------------------------------------------------------------
-   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) 
-   !! $Id $ 
+MODULE trclsm_lobster
+   !!======================================================================
+   !!                      ***  MODULE trclsm_lobster  ***
+   !! TOP :   initialisation of some run parameters for LOBSTER bio-model
+   !!======================================================================
+   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) from trclsm.lobster1.h90
+   !!----------------------------------------------------------------------
+#if defined key_trc_lobster1
+   !!----------------------------------------------------------------------
+   !!   'key_trc_lobster1'   :                            LOBSTER bio-model
+   !!----------------------------------------------------------------------
+   !! trc_lsm_lobster      : LOBSTER 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_lobster   ! 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 +30 @@
 CONTAINS
 
-   SUBROUTINE trc_lsm
+   SUBROUTINE trc_lsm_lobster
       !!----------------------------------------------------------------------
-      !!                     ***  trc_lsm  ***  
+      !!                     ***  trc_lsm_lobster  ***  
       !!
       !! ** Purpose :   read LOBSTER namelist
@@ -43 +57 @@
 
       IF(lwp) WRITE(numout,*)
-      IF(lwp) WRITE(numout,*) ' trc_lsm : read LOBSTER 1 namelists'
-      IF(lwp) WRITE(numout,*) ' ~~~~~~~'
+      IF(lwp) WRITE(numout,*) ' trc_lsm_lobster : read LOBSTER namelists'
+      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~'
 
       !                               ! Open the namelist file
@@ -203 +217 @@
 #endif
       !
-   END SUBROUTINE trc_lsm
+   END SUBROUTINE trc_lsm_lobster
+   
+#else
+   !!----------------------------------------------------------------------
+   !!  Dummy module :                                            No LOBSTER
+   !!----------------------------------------------------------------------
+CONTAINS
+   SUBROUTINE trc_lsm_lobster                      ! Empty routine
+   END  SUBROUTINE  trc_lsm_lobster
+#endif  
+
+   !!======================================================================
+END MODULE trclsm_lobster