/[lmdze]/trunk/Sources/phylmd/physiq.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/physiq.f

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

revision 202 by guez, Wed Jun 8 12:23:41 2016 UTC revision 203 by guez, Wed Jun 8 15:10:12 2016 UTC
# Line 472  contains Line 472  contains
472    
473      !----------------------------------------------------------------      !----------------------------------------------------------------
474    
     IF (if_ebil >= 1) zero_v = 0.  
475      IF (nqmx < 2) CALL abort_gcm('physiq', &      IF (nqmx < 2) CALL abort_gcm('physiq', &
476           'eaux vapeur et liquide sont indispensables')           'eaux vapeur et liquide sont indispensables')
477    
# Line 512  contains Line 511  contains
511         trmb2 =0. ! inhibition         trmb2 =0. ! inhibition
512         trmb3 =0. ! Point Omega         trmb3 =0. ! Point Omega
513    
        IF (if_ebil >= 1) d_h_vcol_phy = 0.  
   
514         iflag_thermals = 0         iflag_thermals = 0
515         nsplit_thermals = 1         nsplit_thermals = 1
516         print *, "Enter namelist 'physiq_nml'."         print *, "Enter namelist 'physiq_nml'."
517         read(unit=*, nml=physiq_nml)         read(unit=*, nml=physiq_nml)
518         write(unit_nml, nml=physiq_nml)         write(unit_nml, nml=physiq_nml)
519    
520           IF (if_ebil >= 1) d_h_vcol_phy = 0.
521         call conf_phys         call conf_phys
522    
523         ! Initialiser les compteurs:         ! Initialiser les compteurs:
# Line 561  contains Line 559  contains
559         CALL phyredem0         CALL phyredem0
560      ENDIF test_firstcal      ENDIF test_firstcal
561    
562        IF (if_ebil >= 1) zero_v = 0.
563    
564      ! We will modify variables *_seri and we will not touch variables      ! We will modify variables *_seri and we will not touch variables
565      ! u, v, t, qx:      ! u, v, t, qx:
566      t_seri = t      t_seri = t
Legend:
Removed from v.202  
changed lines
  Added in v.203
  ViewVC Help
Powered by ViewVC 1.1.21