Changeset 11962 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_phy.F90
- Timestamp:
- 2019-11-25T23:31:07+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_phy.F90
r11845 r11962 531 531 zCe = zz0*pqst(ji,jj)/zdq 532 532 533 CALL BULK_FORMULA( pzu, pTs(ji,jj), pqs(ji,jj), pTa(ji,jj), pqa(ji,jj), zCd, zCh, zCe, & 534 & pwnd(ji,jj), pUb(ji,jj), pslp(ji,jj), & 533 CALL BULK_FORMULA( pzu, pTs(ji,jj), pqs(ji,jj), pTa(ji,jj), pqa(ji,jj), & 534 & zCd, zCh, zCe, & 535 & pwnd(ji,jj), pUb(ji,jj), pslp(ji,jj), & 535 536 & pTau(ji,jj), zQsen, zQlat ) 536 537 537 538 zTs2 = pTs(ji,jj)*pTs(ji,jj) 538 539 zQlw = emiss_w*(prlw(ji,jj) - stefan*zTs2*zTs2) ! Net longwave flux … … 545 546 END SUBROUTINE UPDATE_QNSOL_TAU 546 547 547 548 SUBROUTINE BULK_FORMULA_VCTR( pzu, pTs, pqs, pTa, pqa, pCd, pCh, pCe, pwnd, pUb, pslp, & 549 & pTau, pQsen, pQlat, pEvap, prhoa ) 548 549 SUBROUTINE BULK_FORMULA_VCTR( pzu, pTs, pqs, pTa, pqa, & 550 & pCd, pCh, pCe, & 551 & pwnd, pUb, pslp, & 552 & pTau, pQsen, pQlat, pEvap, prhoa ) 550 553 !!---------------------------------------------------------------------------------- 551 554 REAL(wp), INTENT(in) :: pzu ! height above the sea-level where all this takes place (normally 10m) … … 598 601 END SUBROUTINE BULK_FORMULA_VCTR 599 602 600 601 SUBROUTINE BULK_FORMULA_SCLR( pzu, pTs, pqs, pTa, pqa, pCd, pCh, pCe, pwnd, pUb, pslp, & 602 & pTau, pQsen, pQlat, pEvap, prhoa ) 603 604 SUBROUTINE BULK_FORMULA_SCLR( pzu, pTs, pqs, pTa, pqa, & 605 & pCd, pCh, pCe, & 606 & pwnd, pUb, pslp, & 607 & pTau, pQsen, pQlat, pEvap, prhoa ) 603 608 !!---------------------------------------------------------------------------------- 604 609 REAL(wp), INTENT(in) :: pzu ! height above the sea-level where all this takes place (normally 10m)
Note: See TracChangeset
for help on using the changeset viewer.