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 8878 for branches/UKMO/dev_r8126_LIM3_couple/NEMOGCM/NEMO/OPA_SRC/step.F90 – NEMO

Ignore:
Timestamp:
2017-12-01T14:51:50+01:00 (6 years ago)
Author:
frrh
Message:

Merge in ​http://fcm3/projects/NEMO.xm/log/branches/UKMO/dev_r8183_GC_couple_pkg
revisions 8731:8734 inclusive

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r8126_LIM3_couple/NEMOGCM/NEMO/OPA_SRC/step.F90

    r8877 r8878  
    328328                         CALL ctl_stop( 'step: indic < 0' ) 
    329329                         CALL dia_wri_state( 'output.abort', kstp ) 
     330                               CALL ctl_stop('STOP','NEMO failure in stp') 
    330331      ENDIF 
    331332      IF( kstp == nit000 ) THEN 
    … …  
    339340      ! Coupled mode 
    340341      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    341 !!gm why lk_oasis and not lk_cpl ???? 
    342       IF( lk_oasis   )   CALL sbc_cpl_snd( kstp )     ! coupled mode : field exchanges 
     342      !IF( lk_oasis         )   CALL sbc_cpl_snd( kstp )     ! coupled mode : field exchanges 
    343343      ! 
    344344#if defined key_iomput 
Note: See TracChangeset for help on using the changeset viewer.