Searched refs:msacwi (Results 1 – 2 of 2) sorted by relevance
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/CAM5_mg2_pgi/src/ |
| H A D | micro_mg2_0.F90 | 468 REAL(KIND=r8) :: msacwi(mgncol,nlev) ! mass mixing ratio local
1056 CALL secondary_ice_production(t(:,k), psacws(:,k), msacwi(:,k), nsacwi(:,k))
1059 msacwi(:,k) = 0.0_r8
1104 …dum = ((prc(i,k)+pra(i,k)+mnuccc(i,k)+mnucct(i,k)+msacwi(i,k)+ psacws(i,k)+bergs(i,k)…
1107 … qc(i,k)/deltat/((prc(i,k)+pra(i,k)+mnuccc(i,k)+mnucct(i,k)+ msacwi(i,k)+psacws(i,&
1113 msacwi(i,k) = msacwi(i,k)*ratio
1223 …dum = ((-mnuccc(i,k)-mnucct(i,k)-mnudep(i,k)-msacwi(i,k))*lcldm(i,k)+(prci(i,k)+ p…
1228 …k)+mnudep(i,k)+msacwi(i,k))*lcldm(i,k)+ mnuccri(i,k)*precip_frac(i,k))/ …
1334 …+mnucct(i,k)+msacwi(i,k))*lcldm(i,k)+(mnuccr(i,k)+ pracs(i,k)+mnuccri(i,k))*precip_fr…
1339 …i,k) = qitend(i,k)+ (mnuccc(i,k)+mnucct(i,k)+mnudep(i,k)+msacwi(i,k))*lcldm(i,k)+(&
[all …]
|
| H A D | micro_mg_utils.F90 | 672 elemental SUBROUTINE secondary_ice_production(t, psacws, msacwi, nsacwi) argument
677 REAL(KIND=r8), intent(out) :: msacwi ! MMR local
686 msacwi = min(nsacwi*mi0, psacws)
687 psacws = psacws - msacwi
|