Changeset 5325 for branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/NEMO/TOP_SRC/trcice.F90

Timestamp:

2015-06-01T12:00:26+02:00 (9 years ago)

Author:

aumont

Message:

various bugfixes and code changes

File:

• branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/NEMO/TOP_SRC/trcice.F90 (modified) (4 diffs)

branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/NEMO/TOP_SRC/trcice.F90

@@ -16 +16 @@
    USE trc             ! passive tracers common variables
 !  USE trcrst          ! passive tracers restart
-   USE trcnam          ! Namelist read
 !  USE trcice_cfc      ! CFC      initialisation
    USE trcice_pisces   ! PISCES   initialisation
@@ -31 +30 @@
    PRIVATE
    
-   PUBLIC   trc_ice_ini ! called by trc_init
+   PUBLIC   trc_ice_ini ! called by trc_nam
 
 CONTAINS
@@ -39 +38 @@
       !!                     ***  ROUTINE trc_ice_ini ***
       !!
-      !! ** Purpose :   Communication between TOP and sea ice
+      !! ** Purpose :   Initialization of the ice module for tracers
       !!
       !! ** Method  : - 
       !!            
       !!---------------------------------------------------------------------
-      INTEGER ::   jk, jn, jl    ! dummy loop indices
-      INTEGER :: ios                              ! Local integer output status for namelist read
+      ! --- Variable declarations --- !
 
-      NAMELIST/namtrc_ice/ nn_ice_tr
-      !
       IF(lwp) THEN
          WRITE(numout,*)
@@ -58 +54 @@
 
       !
-      REWIND( numnat_ref )              ! Namelist namtrc_dta in reference namelist : Passive tracer input data
-      READ  ( numnat_ref, namtrc_ice, IOSTAT = ios, ERR = 901)
- 901  IF( ios /= 0 ) CALL ctl_nam ( ios , ' namtrc_ice in reference namelist ', lwp )
-
-      REWIND( numnat_cfg )              ! Namelist nampissbc in configuration namelist : Pisces external sources of nutrients
-      READ  ( numnat_cfg, namtrc_ice, IOSTAT = ios, ERR = 902 )
- 902  IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_ice in configuration namelist', lwp )
-
-      WRITE(numout,*) ' '
-      WRITE(numout,*) ' Sea ice tracers option (nn_ice_tr) : ', nn_ice_tr
-      WRITE(numout,*) ' '
-
       trc_i(:,:,:) = 0.0d0 ! by default
       trc_o(:,:,:) = 0.0d0 ! by default