Changeset 11841 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_phy.F90
- Timestamp:
- 2019-10-31T16:39:00+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
r11826 r11841 79 79 END INTERFACE alpha_sw 80 80 81 INTERFACE turb_fluxes82 MODULE PROCEDURE turb_fluxes_vctr, turb_fluxes_sclr83 END INTERFACE turb_fluxes81 INTERFACE bulk_formula 82 MODULE PROCEDURE bulk_formula_vctr, bulk_formula_sclr 83 END INTERFACE bulk_formula 84 84 85 85 … … 98 98 PUBLIC update_qnsol_tau 99 99 PUBLIC alpha_sw 100 PUBLIC turb_fluxes100 PUBLIC bulk_formula 101 101 102 102 !!---------------------------------------------------------------------- … … 539 539 zCe = zz0*pqst(ji,jj)/zdq 540 540 541 CALL TURB_FLUXES( pzu, pTs(ji,jj), pqs(ji,jj), pTa(ji,jj), pqa(ji,jj), zCd, zCh, zCe, &541 CALL BULK_FORMULA( pzu, pTs(ji,jj), pqs(ji,jj), pTa(ji,jj), pqa(ji,jj), zCd, zCh, zCe, & 542 542 & pwnd(ji,jj), pUb(ji,jj), pslp(ji,jj), & 543 543 & pTau(ji,jj), zQsen, zQlat ) … … 554 554 555 555 556 SUBROUTINE TURB_FLUXES_VCTR( pzu, pTs, pqs, pTa, pqa, pCd, pCh, pCe, pwnd, pUb, pslp, &556 SUBROUTINE BULK_FORMULA_VCTR( pzu, pTs, pqs, pTa, pqa, pCd, pCh, pCe, pwnd, pUb, pslp, & 557 557 & pTau, pQsen, pQlat, pEvap, prhoa ) 558 558 !!---------------------------------------------------------------------------------- … … 604 604 END DO 605 605 END DO 606 END SUBROUTINE TURB_FLUXES_VCTR607 608 609 SUBROUTINE TURB_FLUXES_SCLR( pzu, pTs, pqs, pTa, pqa, pCd, pCh, pCe, pwnd, pUb, pslp, &606 END SUBROUTINE BULK_FORMULA_VCTR 607 608 609 SUBROUTINE BULK_FORMULA_SCLR( pzu, pTs, pqs, pTa, pqa, pCd, pCh, pCe, pwnd, pUb, pslp, & 610 610 & pTau, pQsen, pQlat, pEvap, prhoa ) 611 611 !!---------------------------------------------------------------------------------- … … 653 653 IF ( PRESENT(prhoa) ) prhoa = zrho 654 654 655 END SUBROUTINE TURB_FLUXES_SCLR655 END SUBROUTINE BULK_FORMULA_SCLR 656 656 657 657
Note: See TracChangeset
for help on using the changeset viewer.