Ignore:
Timestamp:
Aug 24, 2015, 9:26:48 AM (9 years ago)
Author:
Ehouarn Millour
Message:

Make iniphysiq a module.
Fix call to iniphysiq in lmdz1d (missing arguments and arrays of wrong sizes).
EM

Location:
LMDZ5/trunk/libf/phylmd/dyn1d
Files:
1 added
1 deleted
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/dyn1d/1DUTILS.h

    r2311 r2347  
    11#include "conf_gcm.F90"
    2 #include "q_sat.F"
    32
    43!
  • LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90

    r2335 r2347  
    2323      USE mod_1D_amma_read
    2424      USE print_control_mod, ONLY: prt_level
     25      USE iniphysiq_mod, ONLY: iniphysiq
    2526
    2627      implicit none
     
    619620      zcvfi=airefi
    620621!
    621       rlat_rad(:)=rlat(:)*rpi/180.
    622       rlon_rad(:)=rlon(:)*rpi/180.
    623 
    624       call iniphysiq(iim,jjm,llm,rday,day_ini,timestep,                        &
    625      &     rlat_rad,rlon_rad,airefi,zcufi,zcvfi,ra,rg,rd,rcpd,(/1/))
     622      rlat_rad(1)=rlat(1)*rpi/180.
     623      rlon_rad(1)=rlon(1)*rpi/180.
     624
     625     ! Ehouarn: iniphysiq requires arrays related to (3D) dynamics grid,
     626     ! e.g. for cell boundaries, which are meaningless in 1D; so pad these
     627     ! with '0.' when necessary
     628      call iniphysiq(iim,jjm,llm,rday,day_ini,timestep,  &
     629           (/rlat_rad(1),0./),(/0./), &
     630           (/0.,0./),(/rlon_rad(1),0./),  &
     631           (/ (/airefi,0./),(/0.,0./) /), &
     632           (/zcufi,0.,0.,0./), &
     633           (/zcvfi,0./), &
     634           ra,rg,rd,rcpd,1)
    626635      print*,'apres iniphysiq'
    627636
Note: See TracChangeset for help on using the changeset viewer.