Changeset 4808
- Timestamp:
- Feb 8, 2024, 4:25:36 PM (8 months ago)
- Location:
- LMDZ6/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/DefLists/field_def_lmdz.xml
r4803 r4808 825 825 <field id="rsdcs" long_name="SW CS downward radiation" unit="W m-2" /> 826 826 <field id="rlucs" long_name="LW CS upward radiation" unit="W m-2" /> 827 <field id="rsucs_s2" long_name="SW CS upward radiation" unit="W m-2" /> 828 <field id="rsdcs_s2" long_name="SW CS downward radiation" unit="W m-2" /> 829 <field id="rlucs_s2" long_name="LW CS upward radiation" unit="W m-2" /> 827 830 <field id="rldcs4co2" long_name="Downwelling CS LW 4xCO2 atmosphere" unit="W/m2" /> 828 831 <field id="rlucs4co2" long_name="Upwelling CS LW 4xCO2 atmosphere" unit="W/m2" /> … … 842 845 <field id="rlu" long_name="LW upward radiation" unit="W m-2" /> 843 846 <field id="rld" long_name="LW downward radiation" unit="W m-2" /> 847 <field id="rldcs_s2" long_name="LW CS downward radiation" unit="W m-2" /> 848 <field id="rsu_s2" long_name="SW upward radiation" unit="W m-2" /> 849 <field id="rsd_s2" long_name="SW downward radiation" unit="W m-2" /> 850 <field id="rlu_s2" long_name="LW upward radiation" unit="W m-2" /> 851 <field id="rld_s2" long_name="LW downward radiation" unit="W m-2" /> 844 852 <field id="kz" long_name="Kz melange" unit="m2/s" enabled="FALSE" /> 845 853 <field id="evu" long_name="Eddy viscosity coefficient for Momentum Variables" unit="m2 s-1" /> -
LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
r4803 r4808 238 238 o_LWupSFCclr_s2, o_LWdnSFCclr_s2, o_SWupSFC_s2, & 239 239 o_SWupSFCclr_s2, o_SWdnSFC_s2, o_SWdnSFCclr_s2, & 240 o_LWupSFC_s2, o_LWdnSFC_s2 240 o_LWupSFC_s2, o_LWdnSFC_s2, , o_rlu_s2, o_rld_s2, & 241 o_rlucs_s2, o_rldcs_s2, o_rsu_s2, o_rsd_s2, & 242 o_rsucs_s2, o_rsdcs_s2 241 243 #endif 242 244 … … 301 303 toplw0_s2,toplw_s2,topsw0_s2,topsw_s2, & 302 304 swup0_s2,swup_s2,swdn_s2,swdn0_s2,sollwdownclr_s2, & 303 sollwdown_s2,lwdn0_s2 305 sollwdown_s2,lwdn0_s2,lwup_s2,lwdn_s2,lwup0_s2,lwdn0_s2 304 306 USE phys_output_var_mod, ONLY: cloud_cover_sw, & 305 307 cloud_cover_sw_s2 … … 1158 1160 ENDIF 1159 1161 CALL histwrite_phy(o_SWdnSFCclr_s2, zx_tmp_fi2d) 1162 1163 IF (vars_defined) THEN 1164 zx_tmp_fi2d(:) = swdn_s2(:,1)*swradcorr(:) 1165 ENDIF 1166 CALL histwrite_phy(o_SWdnSFC_s2, zx_tmp_fi2d) 1167 1168 IF (vars_defined) THEN 1169 zx_tmp_fi2d(:) = swdn0_s2(:,1)*swradcorr(:) 1170 ENDIF 1171 CALL histwrite_phy(o_SWdnSFCclr_s2, zx_tmp_fi2d) 1172 1173 IF (vars_defined) THEN 1174 DO k=1, klevp1 1175 zx_tmp_fi3d1(:,k)=swup_s2(:,k)*swradcorr(:) 1176 ENDDO 1177 ENDIF 1178 CALL histwrite_phy(o_rsu_s2, zx_tmp_fi3d1) 1179 1180 IF (vars_defined) THEN 1181 DO k=1, klevp1 1182 zx_tmp_fi3d1(:,k)=swdn_s2(:,k)*swradcorr(:) 1183 ENDDO 1184 ENDIF 1185 CALL histwrite_phy(o_rsd_s2, zx_tmp_fi3d1) 1186 1187 IF (vars_defined) THEN 1188 DO k=1, klevp1 1189 zx_tmp_fi3d1(:,k)=swup0_s2(:,k)*swradcorr(:) 1190 ENDDO 1191 ENDIF 1192 CALL histwrite_phy(o_rsucs_s2, zx_tmp_fi3d1) 1193 1194 IF (vars_defined) THEN 1195 DO k=1, klevp1 1196 zx_tmp_fi3d1(:,k)=swdn0_s2(:,k)*swradcorr(:) 1197 ENDDO 1198 ENDIF 1199 CALL histwrite_phy(o_rsdcs_s2, zx_tmp_fi3d1) 1200 1201 CALL histwrite_phy(o_rlu_s2, lwup_s2) 1202 CALL histwrite_phy(o_rld_s2, lwdn_s2) 1203 CALL histwrite_phy(o_rlucs_s2, lwup0_s2) 1204 CALL histwrite_phy(o_rldcs_s2, lwdn0_s2) 1160 1205 ENDIF !ok_3Deffect 1161 1206 #endif
Note: See TracChangeset
for help on using the changeset viewer.