Changeset 161 for trunk/NEMO

Timestamp:

2004-11-03T15:46:36+01:00 (20 years ago)

Author:

opalod

Message:

CT + CL : UPDATE104 : Add sublimation trough zevice(:,:) array over sea-ice in the solid precipitation sent to the sea-ice model

File:

• trunk/NEMO/OPA_SRC/SBC/flx_coupled_ice.h90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/flx_coupled_ice.h90

@@ -208 +208 @@
          END DO
 
-! Since cloud cover catm not transmitted from atmosphere, init =0. 
+         ! Set sublimation to zero in ice-free boxes
+         DO jj = 1, nlcj
+            DO ji = 1, nlci
+               IF( freeze(ji,jj) <= 0.0e0 ) zevice(mig(ji),mjg(jj)) = 0.0e0
+            END DO
+         END DO
+
+         ! Since cloud cover catm not transmitted from atmosphere, init =0. 
  
          catm(:, :) =0.
@@ -245 +252 @@
                   &                + zevap ( mig(ji), mjg(jj)) ) * tmask(ji,jj,1) * zfacwat
                !  6: Solid precipitation  (positive upward)
-               sprecip(ji,jj) =  zpsol    ( mig(ji), mjg(jj)) * tmask(ji,jj,1) * zfacwat
+               sprecip(ji,jj) =  ( zpsol( mig(ji), mjg(jj) ) + zevice( mig(ji),mjg(jj) ) )  &
+                  &              * tmask(ji,jj,1) * zfacwat
                !  7: runoff      (positive upward)
                rrunoff(ji,jj) = ( zruncot ( mig(ji), mjg(jj))   &