Ignore:
Timestamp:
Jun 5, 2007, 2:54:43 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Suite du merge entre la version et la HEAD: quelques modifications de Yann
sur le
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3d/create_etat0_limit.F

    r762 r773  
    3232      REAL :: pctsrf(iim*(jjm-1)+2, nbsrf)
    3333
    34      
    35       call InitDimphy
    36       call init_phys_openmp
     34      CALL Init_Phys_lmdz(iim,jjp1,llm,nqmx-2,1,(jjm-1)*iim+2)
    3735      call InitComgeomphy
    38      
     36
    3937      WRITE(6,*) '  *********************  '
    4038      WRITE(6,*) ' interbar = ',interbar
Note: See TracChangeset for help on using the changeset viewer.