Changeset 8348

Timestamp:

2017-07-19T10:06:59+02:00 (7 years ago)

Author:

jamrae

Message:

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

File:

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

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

@@ -724 +724 @@
 ! Ice concentration (CO_1) = a_i calculated at end of cice_sbc_out  
 
+   ! Surface roughness length for form drag
+      CALL cice2nemo(z0atm,fmdice,'T', 1. )
+
 ! Snow and ice thicknesses (CO_2 and CO_3)
 
@@ -730 +733 @@
          CALL cice2nemo(vicen(:,:,jl,:),ht_i(:,:,jl),'T', 1. )
       ENDDO
-   
-! Surface roughness length for form drag
-      CALL cice2nemo(z0atm,fmdice,'T', 1. )
-
       !
       IF( nn_timing == 1 )  CALL timing_stop('cice_sbc_hadgam')