- Timestamp:
- 2018-05-29T16:37:04+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_merge_2017_GC_couple_pkg/NEMOGCM/NEMO/OPA_SRC/step.F90
r9677 r9679 319 319 IF(lwm) CALL FLUSH ( numond ) ! flush output namelist oce 320 320 IF(lwm .AND. numoni /= -1 ) CALL FLUSH ( numoni ) ! flush output namelist ice (if exist) 321 CALL ctl_stop('STOP','NEMO failure in stp') 321 322 ENDIF 322 323 … … 324 325 ! Coupled mode 325 326 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 326 !!gm why lk_oasis and not lk_cpl ???? 327 IF( lk_oasis ) CALL sbc_cpl_snd( kstp ) ! coupled mode : field exchanges 327 !IF( lk_oasis ) CALL sbc_cpl_snd( kstp ) ! coupled mode : field exchanges 328 328 ! 329 329 #if defined key_iomput
Note: See TracChangeset
for help on using the changeset viewer.