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 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domstp.F90 – NEMO

Ignore:
Timestamp:
2011-03-30T17:58:35+02:00 (13 years ago)
Author:
rblod
Message:

First attempt to put dynamic allocation on the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domstp.F90

    r2528 r2715  
    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 
    … …  
    5956      !!              - atfp1    : = 1 - 2*atfp 
    6057      !! 
    61       !! References : 
    62       !!      Bryan, K., 1984, J. Phys. Oceanogr., 14, 666-673. 
     58      !! References :   Bryan, K., 1984, J. Phys. Oceanogr., 14, 666-673. 
    6359      !!---------------------------------------------------------------------- 
    6460      INTEGER ::   jk              ! dummy loop indice 
Note: See TracChangeset for help on using the changeset viewer.