Changeset 467 for LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

Timestamp:

Aug 6, 2003, 4:50:49 PM (21 years ago)

Author:

lmdzadmin

Message:

Modifs sur les seuils (cdrag etc...), inclusion des diagnostics ISCCP par Ionela
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90 (modified) (4 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

@@ -264 +264 @@
 !!$  tsurf_new = 0.
 
+!IM cf JLD
+  ffonte(1:knon)=0.
+  fqcalving(1:knon)=0.
+
   cal = 999999. ; beta = 999999. ; dif_grnd = 999999. ; capsol = 999999.
   alb_new = 999999. ; z0_new = 999999. ; alb_neig = 999999.
@@ -1096 +1100 @@
 !IM cf. JP ---
 
-   where(cdrag > 0.01) 
-     cdrag = 0.01
-   endwhere
+
+! PF et PASB
+!   where(cdrag > 0.01) 
+!     cdrag = 0.01
+!   endwhere
 !  write(*,*)'Cdrag = ',minval(cdrag),maxval(cdrag)
 
@@ -1116 +1122 @@
 
 !IM cf. JP +++
-    albedo_keep(:) = (albedo_out(:,1)+albedo_out(:,2))/2.
+    albedo_keep(1:knon) = (albedo_out(1:knon,1)+albedo_out(1:knon,2))/2.
 !IM cf. JP ---
 
@@ -1122 +1128 @@
 
 !IM cf. JP +++
-  swdown_vrai(:) = swnet(:)/(1. - albedo_keep(:))
+  swdown_vrai(1:knon) = swnet(1:knon)/(1. - albedo_keep(1:knon))
 !IM cf. JP ---