Changeset 768 for branches/dev_001_GM/NEMO/TOP_SRC/trcini.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/trcini.F90 (modified) (4 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/trcini.F90

@@ -7 +7 @@
    !!             1.0  !  2005-03  (O. Aumont, A. El Moussaoui) F90
    !!              -   !  2005-10  (C. Ethe) Module
+   !!             2.0  !  2007-12  (C. Ethe, G. Madec) re-writing
    !!----------------------------------------------------------------------
    !!   trc_ini :   Initialization for passive tracer
@@ -15 +16 @@
    USE trcini_pisces   ! PISCES  initialisation
    USE trcini_my_trc   ! MY_TRC  initialisation
+   USE in_out_manager  ! I/O manager
 
    IMPLICIT NONE
@@ -38 +40 @@
       !!             model (LOBSTER, PISCES, CFC, MY_TRC)
       !!-------------------------------------------------------------------
-
+      !
       IF(lwp) WRITE(numout,*)
       IF(lwp) WRITE(numout,*) 'trc_ini : initial set up of the tracer models'
@@ -47 +49 @@
       ENDIF
 
-      IF( lk_trc_pisces  ) THEN   ;   CALL trc_init_pisces      ! PISCES  bio-model
+      IF( lk_trc_pisces  ) THEN   ;   CALL trc_ini_pisces       ! PISCES  bio-model
       ELSE                        ;   IF(lwp) WRITE(numout,*) '          PISCES not used'
       ENDIF
 
-      IF( lk_trc_cfc     ) THEN   ;   CALL trc_init_cfc         ! CFC     tracers
+      IF( lk_trc_cfc     ) THEN   ;   CALL trc_ini_cfc          ! CFC     tracers
       ELSE                        ;   IF(lwp) WRITE(numout,*) '          CFC not used'
       ENDIF
 
-      IF( lk_trc_my_trc  ) THEN   ;   CALL trc_init_my_trc      ! MY_TRC  tracers
+      IF( lk_my_trc      ) THEN   ;   CALL trc_ini_my_trc       ! MY_TRC  tracers
       ELSE                        ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used'
       ENDIF