Changeset 2690 for LMDZ5/trunk/libf/phylmd/physiq_mod.F90
- Timestamp:
- Oct 30, 2016, 4:35:25 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/physiq_mod.F90
r2684 r2690 745 745 REAL conv_q(klon,klev) ! convergence de l'humidite (kg/kg/s) 746 746 REAL conv_t(klon,klev) ! convergence de la temperature(K/s) 747 748 ! 749 ! REAL zxsnow(klon) 747 ! 750 748 REAL zxsnow_dummy(klon) 751 749 REAL zsav_tsol(klon) … … 763 761 real zqsat(klon,klev) 764 762 ! 765 INTEGER i, k, iq, ig, j, nsrf, ll, l, iiq763 INTEGER i, k, iq, j, nsrf, ll, l 766 764 ! 767 765 REAL t_coup … … 884 882 !IM 141004 END 885 883 !IM 190504 BEG 886 INTEGER ij887 884 ! INTEGER imp1jmp1 888 885 ! PARAMETER(imp1jmp1=(iim+1)*jjmp1) … … 893 890 LOGICAL ok_msk 894 891 REAL msk(klon) 895 !IM896 REAL airetot, pi897 892 !ym A voir plus tard 898 893 !ym REAL zm_wo(jjmp1, klev) … … 932 927 !$OMP THREADPRIVATE(ok_sync) 933 928 real date0 934 integer idayref935 929 936 930 ! essai writephys … … 953 947 DATA ip_ebil/0/ 954 948 !$OMP THREADPRIVATE(ip_ebil) 955 INTEGER if_ebil ! level for energy conserv. dignostics956 SAVE if_ebil957 !$OMP THREADPRIVATE(if_ebil)958 949 REAL q2m(klon,nbsrf) ! humidite a 2m 959 950 … … 3483 3474 ELSE 3484 3475 #ifdef CPP_RRTM 3476 #ifndef CPP_StratAer 3477 !--prescribed strat aerosols 3478 !--only in the case of non-interactive strat aerosols 3485 3479 IF (flag_aerosol_strat.EQ.1) THEN 3486 3480 CALL readaerosolstrato1_rrtm(debut) … … 3492 3486 CALL abort_physic(modname,abort_message,1) 3493 3487 ENDIF 3488 #endif 3494 3489 #else 3495 3490 abort_message='You should compile with -rrtm if running ' & … … 3499 3494 ENDIF 3500 3495 ENDIF 3496 ! 3497 #ifdef CPP_RRTM 3498 #ifdef CPP_StratAer 3499 !--interactive strat aerosols 3500 CALL calcaerosolstrato_rrtm(pplay,t_seri,paprs,debut) 3501 #endif 3502 #endif 3501 3503 !--fin STRAT AEROSOL 3502 3504 !
Note: See TracChangeset
for help on using the changeset viewer.