Changeset 8348


Ignore:
Timestamp:
2017-07-19T10:06:59+02:00 (4 years ago)
Author:
jamrae
Message:

Moved call to cice2nemo for roughness length, to try to avoid conflicts.

File:
1 edited

Legend:

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

    r8347 r8348  
    724724! Ice concentration (CO_1) = a_i calculated at end of cice_sbc_out   
    725725 
     726   ! Surface roughness length for form drag 
     727      CALL cice2nemo(z0atm,fmdice,'T', 1. ) 
     728 
    726729! Snow and ice thicknesses (CO_2 and CO_3) 
    727730 
     
    730733         CALL cice2nemo(vicen(:,:,jl,:),ht_i(:,:,jl),'T', 1. ) 
    731734      ENDDO 
    732     
    733 ! Surface roughness length for form drag 
    734       CALL cice2nemo(z0atm,fmdice,'T', 1. ) 
    735  
    736735      ! 
    737736      IF( nn_timing == 1 )  CALL timing_stop('cice_sbc_hadgam') 
Note: See TracChangeset for help on using the changeset viewer.