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

Continuing convergence work

File:
1 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
Note: See TracChangeset for help on using the changeset viewer.