Changeset 990 for branches/dev_003_CPL/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

Timestamp:

2008-05-23T16:38:21+02:00 (16 years ago)

Author:

smasson

Message:

dev_003_CPL: to the trunk , see ticket #155

File:

• branches/dev_003_CPL/NEMO/OPA_SRC/SBC/sbcblk_clio.F90 (modified) (3 diffs)

branches/dev_003_CPL/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

@@ -58 +58 @@
    LOGICAL ::   lbulk_init = .TRUE.               ! flag, bulk initialization done or not)
 
+#if ! defined key_lim3                          
+   ! in namicerun with LIM3
    REAL(wp) ::   cai = 1.40e-3 ! best estimate of atm drag in order to get correct FS export in ORCA2-LIM
    REAL(wp) ::   cao = 1.00e-3 ! chosen by default  ==> should depends on many things...  !!gmto be updated
+#endif
 
    REAL(wp) ::   yearday     !: number of days per year   
@@ -270 +273 @@
       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 +299 @@
       
       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
-
 
       !------------------------!