Merge pull request #3 from monsieuralok/cice5_20181109-Nor

corrections for intialization
NorESMhub · Jun 12, 2020 · f3bdd62 · f3bdd62
2 parents 472bbb5 + 76700f3
commit f3bdd62
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/source/ice_flux.F90 b/src/source/ice_flux.F90
@@ -684,9 +684,9 @@ subroutine init_history_therm
       Cdn_atm(:,:,:) = (vonkar/log(zref/iceruf)) &
                      * (vonkar/log(zref/iceruf)) ! atmo drag for RASM
 
+        Cd_atm(:,:,:)= c0
       if (formdrag) then
         Cdn_atm_rdg (:,:,:) = c0
-        Cd_atm(:,:,:)= c0
         Cdn_atm_floe(:,:,:) = c0
         Cdn_atm_pond(:,:,:) = c0
         Cdn_atm_skin(:,:,:) = c0