- Timestamp:
- Jun 13, 2024, 3:38:38 PM (6 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/evolution/recomp_tend_co2_slope_mod.F90
r3181 r3381 52 52 - (beta_clap_co2/(alpha_clap_co2-log(vmr_co2_pem(i,t)*ps_PCM_2(i,t)*(global_avg_press_new/global_avg_press_PCM)/100.)))**4 53 53 enddo 54 if (ave < 1e-4) ave = 0. 55 tendencies_co2_ice_phys(i,islope) = tendencies_co2_ice_phys_ini(i,islope) - coef*ave/timelen 54 56 endif 55 if (ave < 1e-4) ave = 0.56 tendencies_co2_ice_phys(i,islope) = tendencies_co2_ice_phys_ini(i,islope) - coef*ave/timelen57 57 enddo 58 58 enddo
Note: See TracChangeset
for help on using the changeset viewer.