Changeset 716 for LMDZ4/branches/IPSL-CM4_IPCC_branch

Timestamp:

Oct 3, 2006, 10:32:55 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Petits probleme de declaration
LF

Location:

LMDZ4/branches/IPSL-CM4_IPCC_branch/libf/phylmd

Files:

• clmain.F (modified) (1 diff)
• interface_surf.F90 (modified) (1 diff)

LMDZ4/branches/IPSL-CM4_IPCC_branch/libf/phylmd/clmain.F

@@ -104 +104 @@
 cIM cf JLD
       REAL y_fqcalving(klon), y_fqfonte(klon), y_ffonte(klon)
-      REAL fqcalving(klon,nbsrf), fqfonte(klon,nbsrf), ffonte(klon,nbsrf)
+      REAL fqcalving(klon,nbsrf), fqfonte(klon,nbsrf)
+      REAL ffonte(klon,nbsrf)
       REAL run_off_lic_0(klon), y_run_off_lic_0(klon)
 

LMDZ4/branches/IPSL-CM4_IPCC_branch/libf/phylmd/interface_surf.F90

@@ -202 +202 @@
 ! hauteur de neige, en kg/m2/s
 !jld a rajouter   real, dimension(klon), intent(INOUT):: fqcalving
-  real, dimension(klon), intent(INOUT):: fqcalving
+  real, dimension(klon), intent(INOUT):: fqcalving, fqfonte
 
 ! Local