Changeset 2706 for branches

Timestamp:

2011-03-25T09:42:45+01:00 (13 years ago)

Author:

cetlod

Message:

minor bug correction in OFFLINE component

Location:

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OFF_SRC

Files:

• dommsk.F90 (modified) (1 diff)
• nemogcm.F90 (modified) (2 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OFF_SRC/dommsk.F90

@@ -113 +113 @@
       IF( dom_msk_alloc /= 0 )   CALL ctl_warn('dom_msk_alloc : failed to allocate facvol array')
       !
-   END SUBROUTINE dom_msk_alloc
+   END FUNCTION dom_msk_alloc
 
    !!======================================================================

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

@@ -43 +43 @@
    USE mod_ioclient
 #endif 
+   USE prtctl           ! Print control                    (prt_ctl_init routine)
 
    IMPLICIT NONE
@@ -213 +214 @@
                             CALL     dom_init   ! Domain
                             CALL  istate_init   ! ocean initial state (Dynamics and tracers)
+
+
+      IF( ln_ctl        )   CALL prt_ctl_init   ! Print control
 
       !                                     ! Ocean physics