/[lmdze]/trunk/phylmd/physiq.f90
ViewVC logotype

Diff of /trunk/phylmd/physiq.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 349 by guez, Mon Dec 9 20:15:29 2019 UTC revision 350 by guez, Mon Dec 23 16:07:24 2019 UTC
# Line 30  contains Line 30  contains
30      use comconst, only: dtphys      use comconst, only: dtphys
31      USE comgeomphy, ONLY: airephy      USE comgeomphy, ONLY: airephy
32      USE concvl_m, ONLY: concvl      USE concvl_m, ONLY: concvl
33      USE conf_gcm_m, ONLY: lmt_pas      USE conf_gcm_m, ONLY: nday, lmt_pas
34      USE conf_phys_m, ONLY: conf_phys      USE conf_phys_m, ONLY: conf_phys
35      use conflx_m, only: conflx      use conflx_m, only: conflx
36      USE ctherm_m, ONLY: iflag_thermals, ctherm      USE ctherm_m, ONLY: iflag_thermals, ctherm
# Line 51  contains Line 51  contains
51      use newmicro_m, only: newmicro      use newmicro_m, only: newmicro
52      USE orbite_m, ONLY: orbite      USE orbite_m, ONLY: orbite
53      USE ozonecm_m, ONLY: ozonecm      USE ozonecm_m, ONLY: ozonecm
54      USE phyetat0_m, ONLY: phyetat0      USE phyetat0_m, ONLY: phyetat0, itau_phy
55      USE phyredem_m, ONLY: phyredem      USE phyredem_m, ONLY: phyredem
56      USE phyredem0_m, ONLY: phyredem0      USE phyredem0_m, ONLY: phyredem0
57      USE phytrac_m, ONLY: phytrac      USE phytrac_m, ONLY: phytrac
# Line 470  contains Line 470  contains
470    
471         ! Initialisation des sorties         ! Initialisation des sorties
472         call ini_histins         call ini_histins
473         CALL phyredem0         CALL phyredem0(itau_phy + nday * lmt_pas)
474         call conf_interface         call conf_interface
475      ENDIF test_firstcal      ENDIF test_firstcal
476    
Legend:
Removed from v.349  
changed lines
  Added in v.350
  ViewVC Help
Powered by ViewVC 1.1.21