Changeset 2706


Ignore:
Timestamp:
2011-03-25T09:42:45+01:00 (10 years ago)
Author:
cetlod
Message:

minor bug correction in OFFLINE component

Location:
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OFF_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OFF_SRC/dommsk.F90

    r2690 r2706  
    113113      IF( dom_msk_alloc /= 0 )   CALL ctl_warn('dom_msk_alloc : failed to allocate facvol array') 
    114114      ! 
    115    END SUBROUTINE dom_msk_alloc 
     115   END FUNCTION dom_msk_alloc 
    116116 
    117117   !!====================================================================== 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r2690 r2706  
    4343   USE mod_ioclient 
    4444#endif  
     45   USE prtctl           ! Print control                    (prt_ctl_init routine) 
    4546 
    4647   IMPLICIT NONE 
     
    213214                            CALL     dom_init   ! Domain 
    214215                            CALL  istate_init   ! ocean initial state (Dynamics and tracers) 
     216 
     217 
     218      IF( ln_ctl        )   CALL prt_ctl_init   ! Print control 
    215219 
    216220      !                                     ! Ocean physics 
Note: See TracChangeset for help on using the changeset viewer.