Changeset 1226 for trunk/NEMO/LIM_SRC_2/limsbc_2.F90

Timestamp:

2008-11-27T18:41:45+01:00 (15 years ago)

Author:

smasson

Message:

bugfix of the coupling interface (commited during changeset:1218), see ticket:155

File:

• trunk/NEMO/LIM_SRC_2/limsbc_2.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_2/limsbc_2.F90

@@ -159 +159 @@
             !   computation the solar flux at ocean surface
 #if defined key_coupled 
-            zqsr = tqsr(ji,jj) + ( fstric(ji,jj) - qsr_ice(ji,jj) ) * ( 1.0 - pfrld(ji,jj) )
+            zqsr = qsr_tot(ji,jj) + ( fstric(ji,jj) - qsr_ice(ji,jj) ) * ( 1.0 - pfrld(ji,jj) )
 #else
             zqsr = pfrld(ji,jj) * qsr(ji,jj)  + ( 1.  - pfrld(ji,jj) ) * fstric(ji,jj)