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 79 for trunk/NEMO/OPA_SRC/stpctl.F90 – NEMO

Ignore:
Timestamp:
2004-04-22T14:57:11+02:00 (20 years ago)
Author:
opalod
Message:

CT : UPDATE053 : Use logical key "lk_isl" instead of "l_isl"

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/stpctl.F90

    r15 r79  
    6262         WRITE(numout,*) 
    6363         WRITE(numout,*) 'stp_ctl : time-stepping control' 
    64          WRITE(numout,*) '~~~' 
     64         WRITE(numout,*) '~~~~~~~' 
    6565         ! open time.step file 
    6666         CALL ctlopn( numstp, 'time.step', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 1, numout, lwp, 1 ) 
     
    8181 
    8282      ! Islands (if exist) 
    83       IF( l_isl )   CALL isl_stp_ctl( kt, kindic ) 
     83      IF( lk_isl )   CALL isl_stp_ctl( kt, kindic ) 
    8484 
    8585 
     
    103103      ! ------------------------ 
    104104      !! zumax = MAXVAL( ABS( un(:,:,:) ) )   ! slower than the following loop on NEC SX5 
    105       zumax = 0.0 
     105      zumax = 0.e0 
    106106      DO jk = 1, jpk 
    107107         DO jj = 1, jpj 
     
    144144      !! zsmin = MINVAL( sn(:,:,1), mask = tmask(:,:,1) == 1.e0 )     
    145145      !                slower than the following loop on NEC SX5 
    146       zsmin = 100.0 
     146      zsmin = 100.e0 
    147147      DO jj = 2, jpjm1 
    148148         DO ji = 1, jpi 
Note: See TracChangeset for help on using the changeset viewer.