Changeset 728 for LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd

Timestamp:

Nov 8, 2006, 4:26:44 PM (18 years ago)

Author:

lmdzadmin

Message:

Initialisation variables slab "tmp_" en SAVE lors du 1er appel
JG/LF/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

@@ -289 +289 @@
 !      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
-  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.
-  tsurf_new = 999999.
-  alblw = 999999.
-
-!IM: "slab" ocean; initialisations
-  flux_o = 0.
-  flux_g = 0.
 !
     if (.not. allocated(tmp_flux_o)) then
@@ -374 +352 @@
      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.
+
+!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.
+  tsurf_new = 999999.
+  alblw = 999999.
+
+!IM: "slab" ocean; initialisations
+  flux_o = 0.
+  flux_g = 0.
+!
 !
 ! Aiguillage vers les differents schemas de surface