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 12465 for NEMO/branches/UKMO/r12083_coupling_sequence/src/OCE/SBC/sbcice_cice.F90 – NEMO

Ignore:
Timestamp:
2020-02-26T10:27:04+01:00 (4 years ago)
Author:
jcastill
Message:

Changes as in the original branch but updated to vn4.1

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/r12083_coupling_sequence/src/OCE/SBC/sbcice_cice.F90

    r11715 r12465  
    269269      ENDIF 
    270270      ! 
     271      ! In coupled mode get extra fields from CICE for passing back to atmosphere   
     272      IF ( ksbc == jp_purecpl ) CALL cice_sbc_hadgam(nit000)   
     273      ! 
    271274   END SUBROUTINE cice_sbc_init 
    272275 
     
    664667      !!--------------------------------------------------------------------- 
    665668      ! 
    666       IF( kt == nit000 )  THEN 
    667          IF(lwp) WRITE(numout,*)'cice_sbc_hadgam' 
    668          IF( sbc_cpl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' ) 
    669       ENDIF 
    670  
    671669      !                                         ! =========================== ! 
    672670      !                                         !   Prepare Coupling fields   ! 
Note: See TracChangeset for help on using the changeset viewer.