Changeset 3930 for dynamico_lmdz/aquaplanet

Timestamp:

Apr 29, 2016, 6:22:05 PM (9 years ago)

Author:

ymipsl

Message:

Bug Fix at initialization :
Report falb_dir and falb_dif missing initialization in phyaqua.

YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phyaqua_mod.F90 (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phyaqua_mod.F90

@@ -333 +333 @@
     entr_therm = 0.
     detr_therm = 0.
+
+!ym error : the sub surface dimension is the third not second : forgotten for iniaqua
+!    falb_dir(:,is_ter,:)=0.08; falb_dir(:,is_lic,:)=0.6
+!    falb_dir(:,is_oce,:)=0.5;  falb_dir(:,is_sic,:)=0.6
+    falb_dir(:,:,is_ter)=0.08; falb_dir(:,:,is_lic)=0.6
+    falb_dir(:,:,is_oce)=0.5;  falb_dir(:,:,is_sic)=0.6
+
+!ym falb_dif has been forgotten, initialize with defaukt value found in phyetat0 or 0 ?
+!ym probably the uninitialized value was 0 for standard (regular grid) case
+    falb_dif(:,:,:)=0
+
+