Changeset 9723

Timestamp:

2018-06-01T12:29:45+02:00 (6 years ago)

Author:

dancopsey

Message:

Removed call top cice_sbc_hadgam is this is being done in the dev_merge_2017_CICE_interface branch. This means that we must always use the dev_merge_2017_CICE_interface branch with this branch.

File:

• branches/UKMO/dev_merge_2017_GC_couple_pkg/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90 (modified) (2 diffs)

branches/UKMO/dev_merge_2017_GC_couple_pkg/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

@@ -269 +269 @@
       ENDIF
       !
-      !
-      ! In coupled mode get extra fields from CICE for passing back to atmosphere
- 
-      IF ( ksbc == jp_purecpl ) CALL cice_sbc_hadgam(nit000)
-      ! 
    END SUBROUTINE cice_sbc_init
 
@@ -674 +669 @@
       ENDIF
 
-      IF( kt == nit000 )  THEN
-         IF(lwp) WRITE(numout,*)'cice_sbc_hadgam'
-         IF( sbc_cpl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' )
-      ENDIF
-
       !                                         ! =========================== !
       !                                         !   Prepare Coupling fields   !