Skip to content

Commit f240be4

Browse files
committed
fix compilation error
1 parent ebac15b commit f240be4

1 file changed

Lines changed: 2 additions & 2 deletions

File tree

physics/MP/GFDL/v3_2022/gfdl_cloud_microphys_v3.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -318,8 +318,8 @@ subroutine gfdl_cloud_microphys_v3_run(fast_mp_consv,
318318
ten_qi(i,k) = (qi1(i,kk) - gq0_ntiw(i,k))/dtp
319319
ten_qs(i,k) = (qs1(i,kk) - gq0_ntsw(i,k))/dtp
320320
ten_qg(i,k) = (qg1(i,kk) - gq0_ntgl(i,k))/dtp
321-
ten_qa(i,k) = (qa1(i,kk) - gq0_ntclamt(i,k))/dtp
322-
ten_t(i,k) = (pt(i,kk) - gt0(i,k))/dtp
321+
ten_cldfrc(i,k) = (qa1(i,kk) - gq0_ntclamt(i,k))/dtp
322+
ten_t(i,k) = (pt(i,kk) - gt0(i,k))/dtp
323323
ten_u(i,k) = (uin(i,kk) - gu0(i,k))/dtp
324324
ten_v(i,k) = (vin(i,kk) - gv0(i,k))/dtp
325325
refl_10cm(i,k) = refl(i,kk)

0 commit comments

Comments
 (0)