Changeset 4607 for trunk/NEMOGCM/NEMO/LIM_SRC_2

Timestamp:

2014-03-31T12:03:13+02:00 (10 years ago)

Author:

cbricaud

Message:

solve ticket 1239

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90

@@ -59 +59 @@
          WRITE(numout,*) '~~~~~~~~~~~   '
       ENDIF
+      !                                
+      ! When Diurnal cycle, core bulk and LIM2  are activated, 
+      ! a daily mean qsr is computed for tracer/biogeochemistery model                                 !
+      IF( ltrcdm2dc )THEN  ; ltrcdm2dc_ice = .TRUE.
+      ELSE                 ; ltrcdm2dc_ice = .FALSE.
+      ENDIF
       !                                ! Allocate the ice arrays
       ierr =        ice_alloc_2    ()       ! ice variables
@@ -77 +83 @@
       CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )
       CALL ctl_opn( numoni,         'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 )
-
-      ! When Diurnal cycle, core bulk and LIM2  are activated, 
-      ! a daily mean qsr is computed for tracer/biogeochemistery model                                 !
-      IF( ltrcdm2dc ) ltrcdm2dc_ice = .TRUE.
 
       !                                ! Open the namelist file