Changeset 14235 for NEMO/trunk/src/ABL/ablmod.F90
- Timestamp:
- 2020-12-21T14:22:03+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ABL/ablmod.F90
r14215 r14235 41 41 & pu_dta, pv_dta, pt_dta, pq_dta, & 42 42 & pslp_dta, pgu_dta, pgv_dta, & 43 & pcd_du, psen, pevp, 43 & pcd_du, psen, pevp, plat, & ! in/out 44 44 & pwndm, ptaui, ptauj, ptaum & 45 45 #if defined key_si3 … … 84 84 REAL(wp) , INTENT(inout), DIMENSION(:,: ) :: pevp ! Ce x Du 85 85 REAL(wp) , INTENT(inout), DIMENSION(:,: ) :: pwndm ! ||uwnd|| 86 REAL(wp) , INTENT( out), DIMENSION(:,: ) :: plat ! latent heat flux 86 87 REAL(wp) , INTENT( out), DIMENSION(:,: ) :: ptaui ! taux 87 88 REAL(wp) , INTENT( out), DIMENSION(:,: ) :: ptauj ! tauy … … 530 531 !------------- 531 532 ! !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 532 ! ! 6 *** MPI exchanges 533 ! ! 6 *** MPI exchanges & IOM outputs 533 534 ! !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 534 535 ! … … 590 591 psen( ji, jj ) = - cp_air(zhumi) * zcff * psen(ji,jj) * ( psst(ji,jj) + rt0 - ztemp ) !GS: negative sign to respect aerobulk convention 591 592 pevp( ji, jj ) = rn_efac*MAX( 0._wp, zcff * pevp(ji,jj) * ( pssq(ji,jj) - zhumi ) ) 593 plat( ji, jj ) = - L_vap( psst(ji,jj) ) * pevp( ji, jj ) 592 594 rhoa( ji, jj ) = zcff 593 595 END_2D
Note: See TracChangeset
for help on using the changeset viewer.