Changeset 729 for LMDZ4/trunk/libf

Timestamp:

Nov 8, 2006, 5:05:38 PM (18 years ago)

Author:

lmdzadmin

Message:

Initialisation variables slab "tmp_" en SAVE lors du 1er appel
JG/LF/IM

File:

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

LMDZ4/trunk/libf/phylmd/interface_surf.F90

@@ -295 +295 @@
 !      call abort_gcm(modname,abort_message,1)
 !    endif
-  endif
-  first_call = .false.
-  
-! Initialisations diverses
-!
-!!$  cal=0.; beta=1.; dif_grnd=0.; capsol=0.
-!!$  alb_new = 0.; z0_new = 0.; alb_neig = 0.0
-!!$! PB
-!!$  tsurf_new = 0.
 
 !IM cf JLD
@@ -377 +368 @@
      tmp_tslab(i)=tslab(i)
     ENDDO
+  endif
+  first_call = .false.
+  
+! Initialisations diverses
+!
+!!$  cal=0.; beta=1.; dif_grnd=0.; capsol=0.
+!!$  alb_new = 0.; z0_new = 0.; alb_neig = 0.0
+!!$! PB
+!!$  tsurf_new = 0.
+
 !
 ! Aiguillage vers les differents schemas de surface