Ignore:
Timestamp:
2019-03-15T13:13:07+01:00 (23 months ago)
Author:
jcastill
Message:

Minimal set of changes for coupling order

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/r8395_coupling_sequence/NEMOGCM/NEMO/OPA_SRC/step.F90

    r10763 r10764  
    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.