Ignore:
Timestamp:
Jul 29, 2000, 1:09:57 PM (24 years ago)
Author:
lmdzadmin
Message:

Passage des dimensions de la grille a inicma
LF

Location:
LMDZ.3.3/branches/rel-LF/libf/phylmd
Files:
2 edited

Legend:

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

    r115 r121  
    259259       call interfsur_lim(itime, dtime, jour, &
    260260     & klon, nisurf, knon, knindex, debut,  &
    261      & lmt_alb, lmt_rug)
     261     & alb_new, z0_new)
    262262!
    263263! Pb compilo sun
     
    268268       DO ii = 1, knon
    269269         alb_neig(ii) = alb_neig_grid(knindex(ii))
    270          alb_new(ii) = lmt_alb(knindex(ii))
    271270       enddo
    272271       zfra = MAX(0.0,MIN(1.0,snow/(snow+10.0)))
    273272       alb_new = alb_neig*zfra + alb_new*(1.0-zfra)
    274        DO ii = 1, knon
    275          z0_new(ii) = lmt_rug(knindex(ii))
    276        enddo   
    277273    else
    278274!
     
    806802! initialisation couplage
    807803!
    808     call inicma(npas , nexca, dtime)
     804    call inicma(npas , nexca, dtime,(jjm+1)*iim)
    809805!
    810806! 1ere lecture champs ocean
     
    13181314  integer,save :: jour_lu_sur
    13191315  integer      :: ierr
    1320   character (len = 20) :: modname = 'interfoce_lim'
     1316  character (len = 20) :: modname = 'interfsur_lim'
    13211317  character (len = 80) :: abort_message
    13221318  character (len = 20) :: fich ='limit.nc'
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/oasis.F

    r109 r121  
    1313C     -----------------------------------------------------------
    1414C
    15       SUBROUTINE inicma(kastp,kexch,kstep)
    16 c
    17       INCLUDE 'param.h'
    18 c
    19       INTEGER kastp, kexch, kstep
     15      SUBROUTINE inicma(kastp,kexch,kstep,imjm)
     16c
     17c     INCLUDE 'param.h'
     18c
     19      INTEGER kastp, kexch, kstep,imjm
    2020      INTEGER iparal(3)
    2121      INTEGER ifcpl, idt, info, imxtag, istep, jf
Note: See TracChangeset for help on using the changeset viewer.