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 15274 – NEMO

Changeset 15274


Ignore:
Timestamp:
2021-09-21T12:12:29+02:00 (14 months ago)
Author:
jwhile
Message:

Update per Rob's review

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_1d_bugfixes_tocommit/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r15213 r15274  
    151151      istp = nit000 
    152152 
     153#if defined key_c1d 
     154 
     155      IF( lk_asminc ) THEN 
     156         IF( ln_bkgwri ) CALL asm_bkg_wri( nit000 - 1 )    ! Output background fields 
     157         IF( ln_asmdin ) THEN                        ! Direct initialization 
     158            IF( ln_trainc ) CALL tra_asm_inc( nit000 - 1 )    ! Tracers 
     159         ENDIF 
     160      ENDIF 
     161 
     162      DO WHILE ( istp <= nitend .AND. nstop == 0 ) 
     163         CALL stp_c1d( istp ) 
     164         istp = istp + 1 
     165      END DO 
     166#else 
     167 
    153168      IF( lk_asminc ) THEN 
    154169         IF( ln_bkgwri ) CALL asm_bkg_wri( nit000 - 1 )    ! Output background fields 
     
    160175         ENDIF 
    161176      ENDIF 
    162  
    163 #if defined key_c1d 
    164       DO WHILE ( istp <= nitend .AND. nstop == 0 ) 
    165          CALL stp_c1d( istp ) 
    166          istp = istp + 1 
    167       END DO 
    168 #else 
    169177 
    170178#if defined key_agrif 
Note: See TracChangeset for help on using the changeset viewer.