Ignore:
Timestamp:
May 16, 2018, 3:01:09 PM (7 years ago)
Author:
Laurent Fairhead
Message:

Continuing convergence work

Location:
LMDZ6/branches/DYNAMICO-conv/libf
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/DYNAMICO-conv/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

    r3050 r3326  
    3535  USE phystokenc_mod, ONLY: init_phystokenc
    3636  USE phyaqua_mod, ONLY: iniaqua
     37  USE comconst_mod, ONLY: omeg, rad
    3738#ifdef INCA
    3839  USE indice_sol_mod, ONLY: nbsrf, is_oce, is_sic, is_ter, is_lic
    … …  
    131132                                  cu,cuvsurcv,cv,cvusurcu, &
    132133                                  aire,apoln,apols, &
    133                                   aireu,airev,rlatvdyn)
     134                                  aireu,airev,rlatvdyn,rad,omeg)
    134135  END IF
    135136

  • LMDZ6/branches/DYNAMICO-conv/libf/phylmd/regr_horiz_time_climoz_m.F90

    r2963 r3326  
    5252  USE assert_m,           ONLY: assert
    5353  USE cal_tools_m,        ONLY: year_len, mid_month
    54   USE control_mod,        ONLY: anneeref
     54  USE time_phylmdz_mod,   ONLY: annee_ref
    5555  USE ioipsl,             ONLY: ioget_year_len, ioget_calendar
    5656  USE regr_conserv_m,     ONLY: regr_conserv
    … …  
    207207
    208208  !--- Prepare quantities for time interpolation
    209   tmidmonth=mid_month(anneeref, cal_in)
     209  tmidmonth=mid_month(annee_ref, cal_in)
    210210  IF(interpt) THEN
    211     ntim_ou=ioget_year_len(anneeref)
     211    ntim_ou=ioget_year_len(annee_ref)
    212212    ALLOCATE(tmidday(ntim_ou))
    213213    tmidday=[(REAL(k)-0.5,k=1,ntim_ou)]

  • LMDZ6/branches/DYNAMICO-conv/libf/phylmd/regr_pr_time_av_m.F90

    r2981 r3326  
    106106  USE assert_m,       ONLY: assert
    107107  USE assert_eq_m,    ONLY: assert_eq
    108   USE comvert_mod,    ONLY: scaleheight
     108!  USE comvert_mod,    ONLY: scaleheight
    109109  USE interpolation,  ONLY: locate
    110110  USE regr_conserv_m, ONLY: regr_conserv

  • LMDZ6/branches/DYNAMICO-conv/libf/phylmd/slab_heat_transp_mod.F90

    r3002 r3326  
    8383                                  cu_,cuvsurcv_,cv_,cvusurcu_, &
    8484                                  aire_,apoln_,apols_, &
    85                                   aireu_,airev_,rlatv)
    86     USE comconst_mod, ONLY: omeg, rad
     85                                  aireu_,airev_,rlatv, rad, omeg)
     86!    USE comconst_mod, ONLY: omeg, rad
    8787    ! number of points in lon, lat
    8888    IMPLICIT NONE
    … …  
    104104    REAL,INTENT(IN) :: airev_(ip1jm)
    105105    REAL,INTENT(IN) :: rlatv(nbp_lat-1)
     106    REAL,INTENT(IN) :: rad
     107    REAL,INTENT(IN) :: omeg
    106108
    107109    ! Sanity check on dimensions
Note: See TracChangeset for help on using the changeset viewer.