Changeset 2448 for trunk


Ignore:
Timestamp:
Jan 21, 2021, 10:19:50 AM (4 years ago)
Author:
cmathe
Message:

Delete test_vmr_co2.F, old and unused anymore

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
1 deleted
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/call_dayperi.F

    r2228 r2448  
    1 c ********************************************************
     1c *******************************************************
    22      subroutine call_dayperi(Lsperi,e_elips,dayperi,year_day)
    33      IMPLICIT NONE

  • trunk/LMDZ.MARS/libf/phymars/dimradmars_mod.F90

    r2409 r2448  
    3939                              ! method (doubleq)
    4040  integer iaer_h2o_ice ! Water ice particles
     41  integer iaer_co2_ice ! CO2 ice particles
    4142
    4243  ! AS: was in aeropacity

  • trunk/LMDZ.MARS/libf/phymars/newsedim_mod.F

    r1913 r2448  
    209209        end do
    210210      end do
    211 
    212211      call vlz_fi(ngrid,nlay,pqi,2.,masse,w,wq)
    213212c         write(*,*) ' newsed: wq(6), wq(7), q(6)',

  • trunk/LMDZ.MARS/libf/phymars/nltecool.F

    r1268 r2448  
    142142
    143143      endif
    144 
    145144c
    146145c MAIN LOOP, for each gridpoint and altitude:

  • trunk/LMDZ.MARS/libf/phymars/rocketduststorm_mod.F90

    r2417 r2448  
    172172      REAL  rice(ngrid,nlayer)
    173173      REAL  nuice(ngrid,nlayer)
    174 
     174      REAL  riceco2(ngrid,nlayer)
     175      REAL  nuiceco2(ngrid,nlayer)
    175176
    176177      ! **********************************************************************
    … …  
    251252                 fluxtop_sw1,tau_pref_scenario,tau_pref_gcm, &
    252253                 tau,aerosol,dsodust,tauscaling,dust_rad_adjust,       &
    253                  taucloudtes,rdust,rice,nuice,co2ice,rstormdust,rtopdust, &
     254                 taucloudtes,rdust,rice,nuice,riceco2,nuiceco2,co2ice,rstormdust,rtopdust, &
    254255                 totstormfract,clearatm,dsords,dsotop,alpha_hmons,nohmons,&
    255256                 clearsky,totcloudfrac)

  • trunk/LMDZ.MARS/libf/phymars/topmons_mod.F90

    r2417 r2448  
    126126      REAL  rice(ngrid,nlayer)
    127127      REAL  nuice(ngrid,nlayer)
     128      REAL  riceco2(ngrid,nlayer)
     129      REAL  nuiceco2(ngrid,nlayer)
    128130
    129131!     Temperature profile
    … …  
    277279                 fluxtop_sw1,tau_pref_scenario,tau_pref_gcm, &
    278280                 tau,aerosol,dsodust,tauscaling,dust_rad_adjust,    &
    279                  taucloudtes,rdust,rice,nuice,co2ice,rstormdust,rtopdust, &
     281                 taucloudtes,rdust,rice,nuice,riceco2,nuiceco2,co2ice,rstormdust,rtopdust, &
    280282                 totstormfract,clearatm,dsords,dsotop,alpha_hmons,nohmons,&
    281283                 clearsky,totcloudfrac)

  • trunk/LMDZ.MARS/libf/phymars/vlz_fi.F

    r2311 r2448  
    9090       do l = 1,nlay          ! loop different than when w<0
    9191        do  ij = 1,ngrid
    92 
    9392         if(w(ij,l).gt.0.)then
    9493
    … …  
    191190            end if
    192191
    193             q(ij,l)=q(ij,l) +  (wq(ij,l+1)-wq(ij,l))/masse(ij,l)
    194 
     192            q(ij,l)=q(ij,l) +  (wq(ij,l+1)-wq(ij,l))/masse(ij,l) 
    195193         enddo
    196194      enddo
    197195
    198 
    199 
    200196      return
    201197      end
Note: See TracChangeset for help on using the changeset viewer.