Changeset 2320
- Timestamp:
- Jul 1, 2015, 3:57:32 PM (9 years ago)
- Location:
- LMDZ5/trunk/libf
- Files:
-
- 2 added
- 34 edited
-
dynlonlat_phylonlat/phydev/iniphysiq.F90 (modified) (2 diffs)
-
dynlonlat_phylonlat/phylmd/etat0phys_netcdf.F90 (modified) (1 diff)
-
dynlonlat_phylonlat/phylmd/iniphysiq.F90 (modified) (3 diffs)
-
phydev/infotrac_phy.F90 (added)
-
phydev/physiq.F90 (modified) (1 diff)
-
phylmd/carbon_cycle_mod.F90 (modified) (2 diffs)
-
phylmd/concvl.F90 (modified) (1 diff)
-
phylmd/conema3.F90 (modified) (1 diff)
-
phylmd/conemav.F90 (modified) (1 diff)
-
phylmd/convect3.F90 (modified) (1 diff)
-
phylmd/cvltr.F90 (modified) (1 diff)
-
phylmd/cvltr_noscav.F90 (modified) (1 diff)
-
phylmd/cvltr_scav.F90 (modified) (1 diff)
-
phylmd/cvltr_spl.F90 (modified) (1 diff)
-
phylmd/cvltrorig.F90 (modified) (1 diff)
-
phylmd/infotrac_phy.F90 (added)
-
phylmd/init_be.F90 (modified) (1 diff)
-
phylmd/init_phys_lmdz.F90 (modified) (1 diff)
-
phylmd/initrrnpb.F90 (modified) (1 diff)
-
phylmd/lsc_scav.F90 (modified) (1 diff)
-
phylmd/phyetat0.F90 (modified) (1 diff)
-
phylmd/phyredem.F90 (modified) (1 diff)
-
phylmd/phys_local_var_mod.F90 (modified) (1 diff)
-
phylmd/phys_output_mod.F90 (modified) (1 diff)
-
phylmd/phys_output_write_mod.F90 (modified) (1 diff)
-
phylmd/phys_state_var_mod.F90 (modified) (1 diff)
-
phylmd/physiq.F90 (modified) (1 diff)
-
phylmd/phystokenc.F90 (modified) (1 diff)
-
phylmd/phytrac_mod.F90 (modified) (1 diff)
-
phylmd/radiation_AR4.F90 (modified) (3 diffs)
-
phylmd/radio_decay.F90 (modified) (1 diff)
-
phylmd/radlwsw_m.F90 (modified) (1 diff)
-
phylmd/tracinca_mod.F90 (modified) (2 diffs)
-
phylmd/traclmdz_mod.F90 (modified) (4 diffs)
-
phylmd/tracreprobus_mod.F90 (modified) (1 diff)
-
phymar/physiq.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dynlonlat_phylonlat/phydev/iniphysiq.F90
r2311 r2320 18 18 rlond, & ! longitudes 19 19 rlatd ! latitudes 20 USE infotrac, ONLY: nqtot, type_trac 21 USE infotrac_phy, ONLY: init_infotrac_phy 20 22 ! USE comcstphy, ONLY: rradius, & ! planet radius (m) 21 23 ! rr, & ! recuced gas constant: R/molar mass of atm … … 122 124 ! Initialize physical constants in physics: 123 125 CALL inifis(prad,pg,pr,pcpp) 126 127 ! Initialize tracer names, numbers, etc. for physics 128 CALL init_infotrac_phy(nqtot,type_trac) 124 129 125 130 ! Now generate local lon/lat/cu/cv/area arrays -
LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/etat0phys_netcdf.F90
r2302 r2320 80 80 !------------------------------------------------------------------------------- 81 81 USE control_mod 82 USE infotrac83 82 USE fonte_neige_mod 84 83 USE pbl_surface_mod -
LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/iniphysiq.F90
r2315 r2320 14 14 klon_mpi_begin ! start indes of columns (on local mpi grid) 15 15 USE vertical_layers_mod, ONLY : init_vertical_layers 16 USE infotrac, ONLY: nqtot,nqo,nbtr,tname,ttext,type_trac,& 17 niadv,conv_flg,pbl_flg,solsym,& 18 nqfils,nqdesc,nqdesc_tot,iqfils,iqpere,& 19 ok_isotopes,ok_iso_verif,ok_isotrac,& 20 ok_init_iso,niso_possibles,tnat,& 21 alpha_ideal,use_iso,iqiso,iso_num,& 22 iso_indnum,zone_num,phase_num,& 23 indnum_fn_num,index_trac,& 24 niso,ntraceurs_zone,ntraciso 16 25 USE comgeomphy, ONLY: initcomgeomphy, & 17 26 airephy, & ! physics grid area (m2) … … 21 30 rlatd ! latitudes 22 31 USE inifis_mod, ONLY: inifis 32 USE infotrac_phy, ONLY: init_infotrac_phy 23 33 USE phyaqua_mod, ONLY: iniaqua 24 34 IMPLICIT NONE … … 135 145 ap,bp,presnivs,pseudoalt) 136 146 147 ! Initialize tracer names, numbers, etc. for physics 148 CALL init_infotrac_phy(nqtot,nqo,nbtr,tname,ttext,type_trac,& 149 niadv,conv_flg,pbl_flg,solsym,& 150 nqfils,nqdesc,nqdesc_tot,iqfils,iqpere,& 151 ok_isotopes,ok_iso_verif,ok_isotrac,& 152 ok_init_iso,niso_possibles,tnat,& 153 alpha_ideal,use_iso,iqiso,iso_num,& 154 iso_indnum,zone_num,phase_num,& 155 indnum_fn_num,index_trac,& 156 niso,ntraceurs_zone,ntraciso) 157 137 158 ! Now generate local lon/lat/cu/cv/area arrays 138 159 CALL initcomgeomphy -
LMDZ5/trunk/libf/phydev/physiq.F90
r2221 r2320 11 11 12 12 USE dimphy, only : klon,klev 13 USE infotrac , only : nqtot13 USE infotrac_phy, only : nqtot 14 14 USE comgeomphy, only : rlatd 15 15 USE comcstphy, only : rg -
LMDZ5/trunk/libf/phylmd/carbon_cycle_mod.F90
r2311 r2320 88 88 USE comgeomphy 89 89 USE mod_phys_lmdz_transfert_para 90 USE infotrac 90 USE infotrac_phy, ONLY: nbtr, nqo, niadv, tname 91 91 USE IOIPSL 92 92 USE surface_data, ONLY : ok_veget, type_ocean … … 304 304 ! - Calculate CO2 flux to send to ocean and land models (PISCES and ORCHIDEE) 305 305 306 USE infotrac 306 USE infotrac_phy, ONLY: nbtr 307 307 USE dimphy 308 308 USE mod_phys_lmdz_transfert_para -
LMDZ5/trunk/libf/phylmd/concvl.F90
r2311 r2320 29 29 30 30 USE dimphy 31 USE infotrac , ONLY: nbtr31 USE infotrac_phy, ONLY: nbtr 32 32 USE phys_local_var_mod, ONLY: omega 33 33 USE print_control_mod, ONLY: prt_level, lunout -
LMDZ5/trunk/libf/phylmd/conema3.F90
r1992 r2320 8 8 9 9 USE dimphy 10 USE infotrac , ONLY: nbtr10 USE infotrac_phy, ONLY: nbtr 11 11 IMPLICIT NONE 12 12 ! ====================================================================== -
LMDZ5/trunk/libf/phylmd/conemav.F90
r1992 r2320 8 8 9 9 USE dimphy 10 USE infotrac , ONLY: nbtr10 USE infotrac_phy, ONLY: nbtr 11 11 IMPLICIT NONE 12 12 ! ====================================================================== -
LMDZ5/trunk/libf/phylmd/convect3.F90
r2197 r2320 16 16 ! ################################################################# 17 17 USE dimphy 18 USE infotrac , ONLY: nbtr18 USE infotrac_phy, ONLY: nbtr 19 19 IMPLICIT NONE 20 20 include "dimensions.h" -
LMDZ5/trunk/libf/phylmd/cvltr.F90
r2007 r2320 12 12 USE IOIPSL 13 13 USE dimphy 14 USE infotrac , ONLY : nbtr,tname14 USE infotrac_phy, ONLY : nbtr,tname 15 15 IMPLICIT NONE 16 16 !===================================================================== -
LMDZ5/trunk/libf/phylmd/cvltr_noscav.F90
r2007 r2320 4 4 SUBROUTINE cvltr_noscav(it,pdtime,da, phi, mp,wght_cvfd,paprs,pplay,x,upd,dnd,dx) 5 5 USE dimphy 6 USE infotrac , ONLY : nbtr6 USE infotrac_phy, ONLY : nbtr 7 7 IMPLICIT NONE 8 8 !===================================================================== -
LMDZ5/trunk/libf/phylmd/cvltr_scav.F90
r2284 r2320 13 13 USE IOIPSL 14 14 USE dimphy 15 USE infotrac , ONLY : nbtr,tname15 USE infotrac_phy, ONLY : nbtr,tname 16 16 IMPLICIT NONE 17 17 !===================================================================== -
LMDZ5/trunk/libf/phylmd/cvltr_spl.F90
r2147 r2320 13 13 USE IOIPSL 14 14 USE dimphy 15 USE infotrac , ONLY : nbtr,tname15 USE infotrac_phy, ONLY : nbtr,tname 16 16 IMPLICIT NONE 17 17 !===================================================================== -
LMDZ5/trunk/libf/phylmd/cvltrorig.F90
r1907 r2320 4 4 SUBROUTINE cvltrorig(it,pdtime,da, phi, mp,paprs,pplay,x,upd,dnd,dx) 5 5 USE dimphy 6 USE infotrac , ONLY : nbtr6 USE infotrac_phy, ONLY : nbtr 7 7 IMPLICIT NONE 8 8 !===================================================================== -
LMDZ5/trunk/libf/phylmd/init_be.F90
r2311 r2320 6 6 USE dimphy 7 7 USE comgeomphy 8 USE infotrac , ONLY : nbtr8 USE infotrac_phy, ONLY : nbtr 9 9 USE indice_sol_mod 10 10 -
LMDZ5/trunk/libf/phylmd/init_phys_lmdz.F90
r2239 r2320 6 6 USE mod_grid_phy_lmdz, ONLY: Init_grid_phy_lmdz, nbp_lev 7 7 USE dimphy, ONLY : Init_dimphy 8 USE infotrac , ONLY : type_trac8 USE infotrac_phy, ONLY : type_trac 9 9 #ifdef REPROBUS 10 10 USE CHEM_REP, ONLY : Init_chem_rep_phys -
LMDZ5/trunk/libf/phylmd/initrrnpb.F90
r1907 r2320 4 4 SUBROUTINE initrrnpb(ftsol,pctsrf,masktr,fshtr,hsoltr,tautr,vdeptr,scavtr) 5 5 USE dimphy 6 USE infotrac , ONLY : nbtr6 USE infotrac_phy, ONLY : nbtr 7 7 USE traclmdz_mod, ONLY : id_rn, id_pb 8 8 USE indice_sol_mod -
LMDZ5/trunk/libf/phylmd/lsc_scav.F90
r2284 r2320 13 13 USE mod_phys_lmdz_para 14 14 USE traclmdz_mod 15 USE infotrac ,ONLY : nbtr15 USE infotrac_phy,ONLY : nbtr 16 16 USE comgeomphy 17 17 USE iophy -
LMDZ5/trunk/libf/phylmd/phyetat0.F90
r2311 r2320 21 21 zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl 22 22 USE iostart, ONLY : close_startphy, get_field, get_var, open_startphy 23 USE infotrac , only: nbtr, nqo, type_trac, tname, niadv23 USE infotrac_phy, only: nbtr, nqo, type_trac, tname, niadv 24 24 USE traclmdz_mod, ONLY : traclmdz_from_restart 25 25 USE carbon_cycle_mod, ONLY : carbon_cycle_tr, carbon_cycle_cpl, co2_send -
LMDZ5/trunk/libf/phylmd/phyredem.F90
r2311 r2320 14 14 USE iostart 15 15 USE traclmdz_mod, ONLY : traclmdz_to_restart 16 USE infotrac 16 USE infotrac_phy, ONLY: type_trac, niadv, tname, nbtr, nqo 17 17 USE control_mod 18 18 USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send -
LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90
r2243 r2320 375 375 SUBROUTINE phys_local_var_init 376 376 USE dimphy 377 USE infotrac , ONLY : nbtr377 USE infotrac_phy, ONLY : nbtr 378 378 USE aero_mod 379 379 USE indice_sol_mod -
LMDZ5/trunk/libf/phylmd/phys_output_mod.F90
r2315 r2320 36 36 USE iophy 37 37 USE dimphy 38 USE infotrac 38 USE infotrac_phy, ONLY: nqtot, nqo, niadv, tname, ttext 39 39 USE ioipsl 40 40 USE phys_cal_mod, only : hour -
LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90
r2319 r2320 239 239 USE pbl_surface_mod, only: snow 240 240 USE indice_sol_mod, only: nbsrf 241 USE infotrac , only: nqtot, nqo, type_trac241 USE infotrac_phy, only: nqtot, nqo, type_trac 242 242 USE comgeomphy, only: airephy 243 243 USE surface_data, only: type_ocean, version_ocean, ok_veget, ok_snow -
LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90
r2271 r2320 406 406 USE control_mod 407 407 USE aero_mod 408 USE infotrac , ONLY : nbtr408 USE infotrac_phy, ONLY : nbtr 409 409 USE indice_sol_mod 410 410 IMPLICIT NONE -
LMDZ5/trunk/libf/phylmd/physiq.F90
r2318 r2320 17 17 USE write_field_phy 18 18 USE dimphy 19 USE infotrac 19 USE infotrac_phy, ONLY: nqtot, nbtr, nqo, type_trac 20 20 USE mod_grid_phy_lmdz 21 21 USE mod_phys_lmdz_para -
LMDZ5/trunk/libf/phylmd/phystokenc.F90
r2311 r2320 9 9 USE ioipsl 10 10 USE dimphy 11 USE infotrac , ONLY : nqtot11 USE infotrac_phy, ONLY : nqtot 12 12 USE iophy 13 13 USE control_mod -
LMDZ5/trunk/libf/phylmd/phytrac_mod.F90
r2311 r2320 89 89 USE phys_cal_mod, only : hour 90 90 USE dimphy 91 USE infotrac 91 USE infotrac_phy, ONLY: nbtr, type_trac, conv_flg, solsym, pbl_flg 92 92 USE mod_grid_phy_lmdz 93 93 USE mod_phys_lmdz_para -
LMDZ5/trunk/libf/phylmd/radiation_AR4.F90
r2311 r2320 485 485 USE dimphy 486 486 USE radiation_ar4_param, ONLY: rsun, rray 487 USE infotrac , ONLY: type_trac487 USE infotrac_phy, ONLY: type_trac 488 488 #ifdef REPROBUS 489 489 USE chem_rep, ONLY: rsuntime, ok_suntime … … 709 709 USE dimphy 710 710 USE radiation_ar4_param, ONLY: rsun, rray 711 USE infotrac , ONLY: type_trac711 USE infotrac_phy, ONLY: type_trac 712 712 #ifdef REPROBUS 713 713 USE chem_rep, ONLY: rsuntime, ok_suntime … … 2342 2342 USE dimphy 2343 2343 USE radiation_ar4_param, ONLY: tref, rt1, raer, at, bt, oct 2344 USE infotrac , ONLY: type_trac2344 USE infotrac_phy, ONLY: type_trac 2345 2345 #ifdef REPROBUS 2346 2346 USE chem_rep, ONLY: rch42d, rn2o2d, rcfc112d, rcfc122d, ok_rtime2d -
LMDZ5/trunk/libf/phylmd/radio_decay.F90
r1907 r2320 7 7 ! 8 8 USE dimphy 9 USE infotrac , ONLY : nbtr9 USE infotrac_phy, ONLY : nbtr 10 10 USE traclmdz_mod, ONLY : id_rn, id_pb 11 11 IMPLICIT NONE -
LMDZ5/trunk/libf/phylmd/radlwsw_m.F90
r2311 r2320 48 48 USE DIMPHY 49 49 USE assert_m, ONLY : assert 50 USE infotrac , ONLY : type_trac50 USE infotrac_phy, ONLY : type_trac 51 51 USE write_field_phy 52 52 #ifdef REPROBUS -
LMDZ5/trunk/libf/phylmd/tracinca_mod.F90
r2180 r2320 11 11 ! This subroutine initialize some control varaibles. 12 12 13 USE infotrac 13 USE infotrac_phy, ONLY: nbtr 14 14 IMPLICIT NONE 15 15 … … 42 42 43 43 USE dimphy 44 USE infotrac 44 USE infotrac_phy, ONLY: nbtr 45 45 USE vampir 46 46 USE comgeomphy -
LMDZ5/trunk/libf/phylmd/traclmdz_mod.F90
r2311 r2320 67 67 68 68 USE dimphy 69 USE infotrac 69 USE infotrac_phy 70 70 71 71 ! Input argument … … 89 89 ! Initialization of the tracers should be done here only for those not found in the restart file. 90 90 USE dimphy 91 USE infotrac 91 USE infotrac_phy 92 92 USE regr_pr_comb_coefoz_m, ONLY: alloc_coefoz 93 93 USE press_coefoz_m, ONLY: press_coefoz … … 343 343 344 344 USE dimphy 345 USE infotrac 345 USE infotrac_phy 346 346 USE regr_pr_comb_coefoz_m, ONLY: regr_pr_comb_coefoz 347 347 USE o3_chem_m, ONLY: o3_chem … … 626 626 ! variable trs is written to restart file (restartphy.nc) 627 627 USE dimphy 628 USE infotrac 628 USE infotrac_phy 629 629 630 630 REAL,DIMENSION(klon,nbtr), INTENT(OUT) :: trs_out -
LMDZ5/trunk/libf/phylmd/tracreprobus_mod.F90
r2180 r2320 12 12 13 13 USE dimphy 14 USE infotrac 14 USE infotrac_phy 15 15 #ifdef REPROBUS 16 16 USE CHEM_REP, ONLY : pdt_rep, & ! pas de temps reprobus -
LMDZ5/trunk/libf/phymar/physiq.F90
r2221 r2320 17 17 18 18 USE dimphy, only : klon,klev,klevp1 19 USE infotrac , only : nqtot19 USE infotrac_phy, only : nqtot 20 20 USE comgeomphy, only : rlatd,rlond,airephy 21 21 !USE comcstphy, only : rg
Note: See TracChangeset
for help on using the changeset viewer.
