Changeset 5207 for branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

Timestamp:

2015-04-13T13:00:27+02:00 (9 years ago)

Author:

cetlod

Message:

dev_r5204_CNRS_PISCES_dcy:minor bugs corrections

File:

• branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90 (modified) (1 diff)

branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

@@ -220 +220 @@
 
       !   daily mean qsr when diurnal cycle is applied on physics - for BGC models
-      IF( l_trcdm2dc ) qsr_mean(:,:) =  pfrld(:,:) * qsr_mean(:,:) +  ftr_ice_mean(:,:)
+      IF( l_trcdm2dc ) THEN
+         DO jj = 1, jpj
+            DO ji = 1, jpi
+               zfcm1 = pfrld(ji,jj) * qsr_mean(ji,jj)
+               DO jl = 1, jpl
+                  zfcm1 = zfcm1 + ftr_ice_mean(ji,jj,jl)
+               END DO
+               qsr_mean(ji,jj) = zfcm1                                      
+            ENDDO
+         ENDDO
+      ENDIF
 
       !------------------------------------------------!