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 12593 for NEMO/branches/2020/r12581_ticket2418/src/OFF/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2020-03-24T16:52:17+01:00 (4 years ago)
Author:
smasson
Message:

r12581_ticket2418, first commit see #2418

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/r12581_ticket2418/src/OFF/nemogcm.F90

    r12377 r12593  
    9090      !!              Madec, 2008, internal report, IPSL. 
    9191      !!---------------------------------------------------------------------- 
    92       INTEGER :: istp, indic       ! time step index 
     92      INTEGER :: istp       ! time step index 
    9393      !!---------------------------------------------------------------------- 
    9494 
     
    130130         IF( .NOT.ln_linssh )   CALL dta_dyn_sf_interp( istp, Nnn )  ! calculate now grid parameters 
    131131#endif 
    132                                 CALL stp_ctl    ( istp, indic )  ! Time loop: control and print 
     132                                CALL stp_ctl    ( istp )             ! Time loop: control and print 
    133133         istp = istp + 1 
    134134      END DO 
     
    365365         WRITE(numout,*) '~~~~~~~~' 
    366366         WRITE(numout,*) '   Namelist namctl' 
    367          WRITE(numout,*) '                              sn_cfctl%l_glochk  = ', sn_cfctl%l_glochk 
    368367         WRITE(numout,*) '                              sn_cfctl%l_allon   = ', sn_cfctl%l_allon 
    369368         WRITE(numout,*) '       finer control over o/p sn_cfctl%l_config  = ', sn_cfctl%l_config 
     
    551550 
    552551 
    553    SUBROUTINE stp_ctl( kt, kindic ) 
     552   SUBROUTINE stp_ctl( kt ) 
    554553      !!---------------------------------------------------------------------- 
    555554      !!                    ***  ROUTINE stp_ctl  *** 
     
    562561      !!---------------------------------------------------------------------- 
    563562      INTEGER, INTENT(in   ) ::   kt      ! ocean time-step index 
    564       INTEGER, INTENT(inout) ::   kindic  ! indicator of solver convergence 
    565563      !!---------------------------------------------------------------------- 
    566564      ! 
Note: See TracChangeset for help on using the changeset viewer.