Changeset 137 for LMDZ.3.3


Ignore:
Timestamp:
Sep 14, 2000, 3:58:20 PM (24 years ago)
Author:
lmdzadmin
Message:

Passage d'un reel plutot que d'un entier dans inicma
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

    r133 r137  
    762762  real, allocatable, dimension(:,:),save :: tamp_zmasq
    763763  real, dimension(iim, jjm+1) :: deno
     764  integer                     :: idtime
    764765!
    765766  logical, save    :: first_appel = .true.
    … …  
    807808! initialisation couplage
    808809!
    809     call inicma(npas , nexca, dtime,(jjm+1)*iim)
     810    idtime = int(dtime)
     811    call inicma(npas , nexca, idtime,(jjm+1)*iim)
    810812!
    811813! 1ere lecture champs ocean
Note: See TracChangeset for help on using the changeset viewer.