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 2444 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OFF_SRC/stpctl.F90 – NEMO

Ignore:
Timestamp:
2010-11-29T15:30:48+01:00 (14 years ago)
Author:
cetlod
Message:

Improvment of OFFLINE in v3.3beta (review done by gm) : clean the style in all routines, suppression of key_zdfddm

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OFF_SRC/stpctl.F90

    r2287 r2444  
    22   !!====================================================================== 
    33   !!                       ***  MODULE  stpctl  *** 
    4    !! Ocean run control :  gross check of the ocean time stepping 
     4   !! Ocean run control :  Off-line case, only save the time step in numstp 
    55   !!====================================================================== 
    66   !! History :  OPA  ! 1991-03  (G. Madec) Original code 
    … …  
    2323   PRIVATE 
    2424 
    25    PUBLIC stp_ctl           ! routine called by step.F90 
     25   PUBLIC   stp_ctl    ! routine called by opa.F90 
     26    
    2627   !!---------------------------------------------------------------------- 
    2728   !! NEMO/OFF 3.3 , NEMO Consortium (2010) 
    2829   !! $Id$ 
    29    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
     30   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    3031   !!---------------------------------------------------------------------- 
    31  
    3232CONTAINS 
    3333 
    … …  
    3939      !! 
    4040      !! ** Method  : - Save the time step in numstp 
    41       !!              - Print it each 50 time steps 
    4241      !! 
    4342      !! ** Actions :   'time.step' file containing the last ocean time-step 
    44       !!                 
    4543      !!---------------------------------------------------------------------- 
    46       INTEGER, INTENT( in ) ::   kt         ! ocean time-step index 
    47       INTEGER, INTENT( inout ) ::   kindic  ! indicator of solver convergence 
     44      INTEGER, INTENT(in   ) ::   kt      ! ocean time-step index 
     45      INTEGER, INTENT(inout) ::   kindic  ! indicator of solver convergence 
    4846      !!---------------------------------------------------------------------- 
    49  
     47      ! 
    5048      IF( kt == nit000 .AND. lwp ) THEN 
    5149         WRITE(numout,*) 
    … …  
    5553         CALL ctl_opn( numstp, 'time.step', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 
    5654      ENDIF 
    57  
     55      ! 
    5856      IF(lwp) WRITE ( numstp, '(1x, i8)' )   kt      !* save the current time step in numstp 
    5957      IF(lwp) REWIND( numstp )                       !  -------------------------- 
    60  
    6158      ! 
    6259   END SUBROUTINE stp_ctl 
Note: See TracChangeset for help on using the changeset viewer.