Changeset 731 for LMDZ4/branches/LMDZ4_V2_patch/libf

Timestamp:

Nov 8, 2006, 5:17:51 PM (18 years ago)

Author:

lmdzadmin

Message:

Petit oubli:Initialisation variables slab "tmp_" en SAVE lors du 1er appel
IM

File:

• LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/interface_surf.F90 (modified) (2 diffs)

LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/interface_surf.F90

@@ -290 +290 @@
 !    endif
 !
+!IM: "slab" ocean; initialisations
+  flux_o = 0.
+  flux_g = 0.
     if (.not. allocated(tmp_flux_o)) then
       allocate(tmp_flux_o(klon), stat = error)
@@ -371 +374 @@
   alblw = 999999.
 
-!IM: "slab" ocean; initialisations
-  flux_o = 0.
-  flux_g = 0.
 !
 !