Ignore:
Timestamp:
2015-07-10T18:07:27+02:00 (5 years ago)
Author:
davestorkey
Message:

Bug fixes for UKMO/dev_r5107_hadgem3_cplseq branch.

Location:
branches/UKMO/dev_r5107_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5107_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r5572 r5591  
    286286      ! In coupled mode get extra fields from CICE for passing back to atmosphere 
    287287  
    288       IF ( ksbc == jp_cpl ) CALL cice_sbc_hadgam(nit000) 
     288      IF ( ksbc == jp_purecpl ) CALL cice_sbc_hadgam(nit000) 
    289289      !  
    290290      IF( nn_timing == 1 )  CALL timing_stop('cice_sbc_init') 
  • branches/UKMO/dev_r5107_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r5572 r5591  
    166166            CALL Agrif_Step( stp )           ! AGRIF: time stepping 
    167167#else 
    168             IF (lk_cpl) CALL sbc_cpl_snd( istp )  ! Coupling to atmos 
     168            IF (lk_oasis) CALL sbc_cpl_snd( istp )  ! Coupling to atmos 
    169169       CALL stp( istp ) 
    170170            ! We don't couple on the final timestep because 
Note: See TracChangeset for help on using the changeset viewer.