Changeset 2719 for LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90

Timestamp:

Nov 29, 2016, 10:56:32 PM (8 years ago)

Author:

fhourdin

Message:

Correction d'une commission du jour

File:

• LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90

@@ -104 +104 @@
 !
 !******************************************************************************
-    radsol(1:knon) = 0.0
+    radsol(1:klon) = 0.0 ! initialisation a priori inutile
     radsol(1:knon) = swnet(1:knon) + lwnet(1:knon)
 
@@ -169 +169 @@
 !******************************************************************************
     IF (type_ocean.NE.'slab') THEN
-        lmt_bils(1:knon)=0.
+        lmt_bils(1:klon)=0.
         DO i=1,knon
            lmt_bils(knindex(i))=(swnet(i)+lwnet(i)+fluxsens(i)+fluxlat(i)) &
@@ -220 +220 @@
 !--ad-hoc correction for model radiative balance tuning
     alb_dir_new(1:knon,:) = fmagic*alb_dir_new(1:knon,:) + pmagic
+    alb_dif_new(1:knon,:) = fmagic*alb_dif_new(1:knon,:) + pmagic
     alb_dir_new(1:knon,:)=MIN(MAX(alb_dir_new(1:knon,:),0.0),1.0)
     alb_dif_new(1:knon,:)=MIN(MAX(alb_dif_new(1:knon,:),0.0),1.0)