- Timestamp:
- Apr 2, 2020, 5:45:44 PM (5 years ago)
- Location:
- trunk/LMDZ.MARS
- Files:
-
- 2 deleted
- 2 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified trunk/LMDZ.MARS/README ¶
r2273 r2274 2920 2920 rates for HCO2+ 2921 2921 2922 2922 == 02/04/2020 == EM 2923 Some code cleanup: 2924 - move profile.F to dyn1d since it is only used by the 1D model 2925 - remove scatter.F, which is not used (and moreover a synonym of the scatter 2926 routine from the "mod_phys_lmdz_para" module) 2927 - remove obsolete "multipl.F" routine, replace the calls to it in vdifc_mod 2928 by modern Fortran syntax. 2929 2930 2931 -
TabularUnified trunk/LMDZ.MARS/libf/phymars/vdifc_mod.F ¶
r2260 r2274 444 444 c et /zkv/ = Ku 445 445 446 CALL multipl((nlay-1)*ngrid,zkv(1,2),zb0(1,2),zb(1,2))447 CALL multipl(ngrid,zcdv,zb0,zb)446 zb(1:ngrid,2:nlay)=zkv(1:ngrid,2:nlay)*zb0(1:ngrid,2:nlay) 447 zb(1:ngrid,1)=zcdv(1:ngrid)*zb0(1:ngrid,1) 448 448 449 449 DO ig=1,ngrid … … 534 534 535 535 c Mass variation scheme: 536 CALL multipl((nlay-1)*ngrid,zkh(1,2),zb0(1,2),zb(1,2))537 CALL multipl(ngrid,zcdh,zb0,zb)536 zb(1:ngrid,2:nlay)=zkh(1:ngrid,2:nlay)*zb0(1:ngrid,2:nlay) 537 zb(1:ngrid,1)=zcdh(1:ngrid)*zb0(1:ngrid,1) 538 538 539 539 c on initialise dm c … … 784 784 c -------------------------------- 785 785 do iq=1,nq !for all tracers including stormdust 786 CALL multipl((nlay-1)*ngrid,zkh(1,2),zb0(1,2),zb(1,2))786 zb(1:ngrid,2:nlay)=zkh(1:ngrid,2:nlay)*zb0(1:ngrid,2:nlay) 787 787 788 788 if ((water).and.(iq.eq.igcm_h2o_vap)) then 789 789 c This line is required to account for turbulent transport 790 790 c from surface (e.g. ice) to mid-layer of atmosphere: 791 CALL multipl(ngrid,zcdv,zb0,zb(1,1))792 CALL multipl(ngrid,dryness,zb(1,1),zb(1,1))791 zb(1:ngrid,1)=zcdv(1:ngrid)*zb0(1:ngrid,1) 792 zb(1:ngrid,1)=dryness(1:ngrid)*zb(1:ngrid,1) 793 793 else ! (re)-initialize zb(:,1) 794 794 zb(1:ngrid,1)=0
Note: See TracChangeset
for help on using the changeset viewer.