Changeset 716 for LMDZ4/branches/IPSL-CM4_IPCC_branch/libf/phylmd/interface_surf.F90

Timestamp:

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

Author:

Laurent Fairhead

Message:

Petits probleme de declaration
LF

File:

• LMDZ4/branches/IPSL-CM4_IPCC_branch/libf/phylmd/interface_surf.F90 (modified) (1 diff)

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