- Timestamp:
- Nov 21, 2019, 4:43:45 PM (4 years ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
-
LMDZ6/branches/Ocean_skin/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90
r3125 r3605 31 31 USE inifis_mod, ONLY: inifis 32 32 USE time_phylmdz_mod, ONLY: init_time 33 USE temps_mod, ONLY: annee_ref, day_ini, day_ref, start_time, calend 33 USE temps_mod, ONLY: annee_ref, day_ini, day_ref, start_time, calend, year_len 34 34 USE infotrac_phy, ONLY: init_infotrac_phy 35 35 USE phystokenc_mod, ONLY: init_phystokenc 36 36 USE phyaqua_mod, ONLY: iniaqua 37 USE comconst_mod, ONLY: omeg, rad 37 38 #ifdef INCA 38 39 USE indice_sol_mod, ONLY: nbsrf, is_oce, is_sic, is_ter, is_lic … … 118 119 119 120 ! Initialize dimphy module (unless in 1D where it has already been done) 120 IF (klon_glo>1) CALL Init_dimphy(klon_omp,nlayer)121 ! IF (klon_glo>1) CALL Init_dimphy(klon_omp,nlayer) 121 122 122 123 ! Copy over "offline" settings … … 134 135 cu,cuvsurcv,cv,cvusurcu, & 135 136 aire,apoln,apols, & 136 aireu,airev,rlatvdyn )137 aireu,airev,rlatvdyn,rad,omeg) 137 138 END IF 138 139 … … 172 173 ! Additional initializations for aquaplanets 173 174 IF (iflag_phys>=100) THEN 174 CALL iniaqua(klon_omp, iflag_phys)175 CALL iniaqua(klon_omp,year_len,iflag_phys) 175 176 END IF 176 177
Note: See TracChangeset
for help on using the changeset viewer.