Changeset 914 for trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

Timestamp:

2008-04-30T16:30:23+02:00 (16 years ago)

Author:

ctlod

Message:

move the set to zero of qsr(:,:) (when more than 50% of sea-ice) from sbcblk_clio.F90 into sbcice_lim*, see ticket: #131

File:

• trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

@@ -270 +270 @@
       REAL(wp) ::   zdtetar, ztvmoyr, zlxins, zchcm, zclcm      !    -         -
       REAL(wp) ::   zmt1, zmt2, zmt3, ztatm3, ztamr, ztaevbk    !    -         -
-      REAL(wp) ::   zsst, ztatm, zcco1, zpatm, zinda            !    -         -
+      REAL(wp) ::   zsst, ztatm, zcco1, zpatm                   !    -         -
       REAL(wp) ::   zrhoa, zev, zes, zeso, zqatm, zevsqr        !    -         -
       !!
@@ -296 +296 @@
       
       CALL blk_clio_qsr_oce( qsr )
-
-      ! CAUTION: ocean shortwave radiation sets to zero if more than 50% of sea-ice !!gm to be removed
-      DO jj = 1, jpj
-         DO ji = 1, jpi
-            zinda    = MAX(  0.e0, SIGN(  1.e0, -( -1.5 - freeze(ji,jj) )  )  )
-            qsr(ji,jj) = zinda * qsr(ji,jj)
-         END DO
-      END DO
-
 
       !------------------------!