Changeset 731 for LMDZ4/branches


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

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

    r728 r731  
    290290!    endif
    291291!
     292!IM: "slab" ocean; initialisations
     293  flux_o = 0.
     294  flux_g = 0.
    292295    if (.not. allocated(tmp_flux_o)) then
    293296      allocate(tmp_flux_o(klon), stat = error)
    … …  
    371374  alblw = 999999.
    372375
    373 !IM: "slab" ocean; initialisations
    374   flux_o = 0.
    375   flux_g = 0.
    376376!
    377377!
Note: See TracChangeset for help on using the changeset viewer.