New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2636 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM – NEMO

Ignore:
Timestamp:
2011-03-01T20:04:06+01:00 (13 years ago)
Author:
gm
Message:

dynamic mem: #785 ; move ctl_stop & warn in lib_mpp to avoid a circular dependency + ctl_stop improvment

Location:
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/domngb.F90

    r2633 r2636  
    2121   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    2222   !! $Id$  
    23    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
     23   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    2424   !!---------------------------------------------------------------------- 
    25  
    2625CONTAINS 
    2726 
    … …  
    3635      !! 
    3736      !!---------------------------------------------------------------------- 
    38       USE in_out_manager, ONLY: ctl_stop 
    3937      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    4038      USE wrk_nemo, ONLY: zglam => wrk_2d_2, & 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/domstp.F90

    r2528 r2636  
    88   !!   dom_stp        : ocean time domain initialization 
    99   !!---------------------------------------------------------------------- 
    10    !! History : 
    11    !!        !  90-10  (O. Marti)  Original code 
    12    !!        !  96-01  (G. Madec)  terrain following coordinates 
    13    !!   8.5  !  02-08  (G. Madec)  F90: Free form and module 
     10   !! History :  OPA  ! 1990-10  (O. Marti)  Original code 
     11   !!                 ! 1996-01  (G. Madec)  terrain following coordinates 
     12   !!   NEMO     1.0  ! 2002-08  (G. Madec)  F90: Free form and module 
    1413   !!---------------------------------------------------------------------- 
    15    !! * Modules used 
    16    USE oce             ! ocean dynamics and tracers 
    17    USE dom_oce         ! ocean space and time domain 
    18    USE in_out_manager  ! I/O manager 
     14   USE oce            ! ocean dynamics and tracers 
     15   USE dom_oce        ! ocean space and time domain 
     16   USE in_out_manager ! I/O manager 
     17   USE lib_mpp        ! MPP library 
    1918 
    2019   IMPLICIT NONE 
    2120   PRIVATE 
    2221 
    23    !! * routine accessibility 
    24    PUBLIC dom_stp        ! routine called by inidom.F90 
     22   PUBLIC   dom_stp   ! routine called by inidom.F90 
    2523 
    2624   !! * Substitutions 
    … …  
    2927   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    3028   !! $Id$  
    31    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
     29   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    3230   !!---------------------------------------------------------------------- 
    33  
    3431CONTAINS 
    3532 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

    r2633 r2636  
    4343   USE dynspg_ts       ! pressure gradient schemes 
    4444   USE traswp          ! Swap arrays                      (tra_swp routine) 
    45     
     45   USE lib_mpp         ! MPP library 
     46 
    4647   IMPLICIT NONE 
    4748   PRIVATE 
    … …  
    5556   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    5657   !! $Id$ 
    57    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
     58   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    5859   !!---------------------------------------------------------------------- 
    59  
    6060CONTAINS 
    6161 
Note: See TracChangeset for help on using the changeset viewer.