Ignore:
Timestamp:
2020-04-12T14:46:30+02:00 (8 months ago)
Author:
clem
Message:

all sette tests passed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/SBC/sbccpl.F90

    r12733 r12742  
    837837 
    838838      ! Initialise ice fractions from last coupling time to zero (needed by Met-Office) 
     839#if defined key_si3 || defined key_cice 
    839840       a_i_last_couple(:,:,:) = 0._wp 
    840  
     841#endif 
    841842      !                                                      ! ------------------------- !  
    842843      !                                                      !      Ice Meltponds        !  
     
    22972298      ENDIF 
    22982299 
     2300#if defined key_si3 || defined key_cice 
    22992301      ! If this coupling was successful then save ice fraction for use between coupling points.  
    23002302      ! This is needed for some calculations where the ice fraction at the last coupling point  
     
    23062308         ENDIF 
    23072309      ENDIF 
     2310#endif 
    23082311 
    23092312      IF( ssnd(jps_fice1)%laction ) THEN 
Note: See TracChangeset for help on using the changeset viewer.