- Timestamp:
- Apr 13, 2015, 10:21:09 AM (9 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 2218,2221-2237
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/phylmd/rrtm/aeropt_6bands_rrtm.F90
r2211 r2258 473 473 tau_ae(i,k,id_ASSSM_phy,inu)+tau_ae(i,k,id_CSSSM_phy,inu)+ & 474 474 tau_ae(i,k,id_SSSSM_phy,inu)+ tau_ae(i,k,id_CIDUSTM_phy,inu) 475 tau_allaer(i,k,2,inu)=MAX(tau_allaer(i,k,2,inu),1e- 5)475 tau_allaer(i,k,2,inu)=MAX(tau_allaer(i,k,2,inu),1e-15) 476 476 477 477 piz_allaer(i,k,2,inu)=(tau_ae(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu)+ & … … 486 486 tau_ae(i,k,id_CIDUSTM_phy,inu)*piz_ae(i,k,id_CIDUSTM_phy,inu)) & 487 487 /tau_allaer(i,k,2,inu) 488 piz_allaer(i,k,2,inu)=MAX(piz_allaer(i,k,2,inu),0. 1)488 piz_allaer(i,k,2,inu)=MAX(piz_allaer(i,k,2,inu),0.01) 489 489 490 490 cg_allaer(i,k,2,inu)=(tau_ae(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu)*cg_ae(i,k,id_ASSO4M_phy,inu)+ & … … 506 506 tau_ae_pi(i,k,id_ASSSM_phy,inu)+tau_ae_pi(i,k,id_CSSSM_phy,inu)+ & 507 507 tau_ae_pi(i,k,id_SSSSM_phy,inu)+ tau_ae_pi(i,k,id_CIDUSTM_phy,inu) 508 tau_allaer(i,k,1,inu)=MAX(tau_allaer(i,k,1,inu),1e- 5)508 tau_allaer(i,k,1,inu)=MAX(tau_allaer(i,k,1,inu),1e-15) 509 509 510 510 piz_allaer(i,k,1,inu)=(tau_ae_pi(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu)+ & … … 519 519 tau_ae_pi(i,k,id_CIDUSTM_phy,inu)*piz_ae(i,k,id_CIDUSTM_phy,inu)) & 520 520 /tau_allaer(i,k,1,inu) 521 piz_allaer(i,k,1,inu)=MAX(piz_allaer(i,k,1,inu),0. 1)521 piz_allaer(i,k,1,inu)=MAX(piz_allaer(i,k,1,inu),0.01) 522 522 523 523 cg_allaer(i,k,1,inu)=(tau_ae_pi(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu)*cg_ae(i,k,id_ASSO4M_phy,inu)+ &
Note: See TracChangeset
for help on using the changeset viewer.