Changeset 728 for LMDZ4/branches/LMDZ4_V2_patch/libf
- Timestamp:
- Nov 8, 2006, 4:26:44 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/interface_surf.F90
r644 r728 289 289 ! call abort_gcm(modname,abort_message,1) 290 290 ! endif 291 endif292 first_call = .false.293 294 ! Initialisations diverses295 !296 !!$ cal=0.; beta=1.; dif_grnd=0.; capsol=0.297 !!$ alb_new = 0.; z0_new = 0.; alb_neig = 0.0298 !!$! PB299 !!$ tsurf_new = 0.300 301 !IM cf JLD302 ffonte(1:knon)=0.303 fqcalving(1:knon)=0.304 305 cal = 999999. ; beta = 999999. ; dif_grnd = 999999. ; capsol = 999999.306 alb_new = 999999. ; z0_new = 999999. ; alb_neig = 999999.307 tsurf_new = 999999.308 alblw = 999999.309 310 !IM: "slab" ocean; initialisations311 flux_o = 0.312 flux_g = 0.313 291 ! 314 292 if (.not. allocated(tmp_flux_o)) then … … 374 352 tmp_tslab(i)=tslab(i) 375 353 ENDDO 354 endif 355 first_call = .false. 356 357 ! Initialisations diverses 358 ! 359 !!$ cal=0.; beta=1.; dif_grnd=0.; capsol=0. 360 !!$ alb_new = 0.; z0_new = 0.; alb_neig = 0.0 361 !!$! PB 362 !!$ tsurf_new = 0. 363 364 !IM cf JLD 365 ffonte(1:knon)=0. 366 fqcalving(1:knon)=0. 367 368 cal = 999999. ; beta = 999999. ; dif_grnd = 999999. ; capsol = 999999. 369 alb_new = 999999. ; z0_new = 999999. ; alb_neig = 999999. 370 tsurf_new = 999999. 371 alblw = 999999. 372 373 !IM: "slab" ocean; initialisations 374 flux_o = 0. 375 flux_g = 0. 376 ! 376 377 ! 377 378 ! Aiguillage vers les differents schemas de surface
Note: See TracChangeset
for help on using the changeset viewer.