Changeset 1077 for trunk/NEMO/TOP_SRC/trclec.F90

Timestamp:

2008-06-05T14:21:08+02:00 (16 years ago)

Author:

cetlod

Message:

update modules, see ticket:190

File:

• trunk/NEMO/TOP_SRC/trclec.F90 (modified) (4 diffs)

trunk/NEMO/TOP_SRC/trclec.F90

@@ -21 +21 @@
    USE trc
    USE trctrp_lec
-   USE trclsm
+   USE trclsm_lobster    ! LOBSTER namelist
+   USE trclsm_pisces     ! PISCES namelist
+   USE trclsm_cfc        ! CFC SMS namelist
+   USE trclsm_my_trc     ! MY_TRC SMS namelist
+   USE in_out_manager    ! I/O manager
 
    IMPLICIT NONE
@@ -44 +48 @@
       !! ** Purpose :   READ and PRINT options for the passive tracer run (namelist) 
       !!
-      !! ** Method  : - read namelist
+      !! ** Method  : - read passive tracer namelist 
+      !!              - read namelist of each defined SMS model
+      !!                ( (LOBSTER, PISCES, CFC, MY_TRC )
       !!---------------------------------------------------------------------
       INTEGER ::  jn
       CHARACTER (len=32) ::   clname
 
+      ! Definition of a tracer as a structure
       TYPE PTRACER
-         CHARACTER(len = 20)  :: sname
-         CHARACTER(len = 80 ) :: lname
-         CHARACTER(len = 20 ) :: unit
-         LOGICAL              :: lini
-         LOGICAL              :: lsav
+         CHARACTER(len = 20)  :: sname  !: short name
+         CHARACTER(len = 80 ) :: lname  !: long name
+         CHARACTER(len = 20 ) :: unit   !: unit
+         LOGICAL              :: lini   !: read in a file or not
+         LOGICAL              :: lsav   !: ouput the tracer or not 
       END TYPE PTRACER
 
+      TYPE(PTRACER) , DIMENSION(jptra) :: tracer
+
 #if defined key_trc_diaadd
-
+      ! definition of additional diagnostic as a structure
       TYPE DIAG
-         CHARACTER(len = 20)  :: snamedia
-         CHARACTER(len = 80 ) :: lnamedia
-         CHARACTER(len = 20 ) :: unitdia
+         CHARACTER(len = 20)  :: snamedia   !: short name
+         CHARACTER(len = 80 ) :: lnamedia   !: long name
+         CHARACTER(len = 20 ) :: unitdia    !: unit
       END TYPE DIAG
 
-#endif
-
-      TYPE(PTRACER) , DIMENSION(jptra) :: tracer
-
-#if defined key_trc_diaadd
       TYPE(DIAG) , DIMENSION(jpdia2d) :: diag2d
       TYPE(DIAG) , DIMENSION(jpdia3d) :: diag3d
@@ -184 +188 @@
          ctrc2u(jn) = ' '                                       ! units 
       END DO
-
       !                                 ! 3D output arrays
       DO jn = 1, jpdia3d
@@ -261 +264 @@
       ! namelist of SMS
       ! ---------------      
-      CALL trc_lsm
+      IF( lk_lobster ) THEN   ;   CALL trc_lsm_lobster      ! LOBSTER bio-model
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          LOBSTER not used'
+      ENDIF
+
+      IF( lk_pisces  ) THEN   ;   CALL trc_lsm_pisces      ! PISCES  bio-model
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          PISCES not used'
+      ENDIF
+
+      IF( lk_cfc     ) THEN   ;   CALL trc_lsm_cfc         ! CFC     tracers
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          CFC not used'
+      ENDIF
+
+      IF( lk_my_trc  ) THEN   ;   CALL trc_lsm_my_trc      ! MY_TRC  tracers
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used'
+      ENDIF
       !
    END SUBROUTINE trc_lec