- Timestamp:
- 2020-03-24T16:52:17+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r12581_ticket2418/src/OFF/nemogcm.F90
r12377 r12593 90 90 !! Madec, 2008, internal report, IPSL. 91 91 !!---------------------------------------------------------------------- 92 INTEGER :: istp , indic! time step index92 INTEGER :: istp ! time step index 93 93 !!---------------------------------------------------------------------- 94 94 … … 130 130 IF( .NOT.ln_linssh ) CALL dta_dyn_sf_interp( istp, Nnn ) ! calculate now grid parameters 131 131 #endif 132 CALL stp_ctl ( istp , indic )! Time loop: control and print132 CALL stp_ctl ( istp ) ! Time loop: control and print 133 133 istp = istp + 1 134 134 END DO … … 365 365 WRITE(numout,*) '~~~~~~~~' 366 366 WRITE(numout,*) ' Namelist namctl' 367 WRITE(numout,*) ' sn_cfctl%l_glochk = ', sn_cfctl%l_glochk368 367 WRITE(numout,*) ' sn_cfctl%l_allon = ', sn_cfctl%l_allon 369 368 WRITE(numout,*) ' finer control over o/p sn_cfctl%l_config = ', sn_cfctl%l_config … … 551 550 552 551 553 SUBROUTINE stp_ctl( kt , kindic)552 SUBROUTINE stp_ctl( kt ) 554 553 !!---------------------------------------------------------------------- 555 554 !! *** ROUTINE stp_ctl *** … … 562 561 !!---------------------------------------------------------------------- 563 562 INTEGER, INTENT(in ) :: kt ! ocean time-step index 564 INTEGER, INTENT(inout) :: kindic ! indicator of solver convergence565 563 !!---------------------------------------------------------------------- 566 564 !
Note: See TracChangeset
for help on using the changeset viewer.