Ignore:
Timestamp:
2017-11-27T14:24:20+01:00 (3 years ago)
Author:
jamrae
Message:

Implemented code to pass sea ice skin roughness length to atmosphere.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

    r8384 r8819  
    116116   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::  a_i 
    117117   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::  ht_i, ht_s 
    118    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::  fmdice 
     118   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::  fmdice, rough_ice_skin 
    119119#endif 
    120120 
     
    176176#if defined key_cice || defined key_lim2 
    177177      IF( ln_cpl )   ALLOCATE( ht_i(jpi,jpj,jpl) , ht_s(jpi,jpj,jpl) , STAT=ierr(5) ) 
    178       IF( ln_cpl )   ALLOCATE( fmdice(jpi,jpj) , STAT=ierr(5) )  
     178      IF( ln_cpl )   ALLOCATE( fmdice(jpi,jpj) , rough_ice_skin(jpi,jpj) , STAT=ierr(5) )  
    179179#endif 
    180180 
Note: See TracChangeset for help on using the changeset viewer.