New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11962 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_phy.F90 – NEMO

Ignore:
Timestamp:
2019-11-25T23:31:07+01:00 (4 years ago)
Author:
laurent
Message:

Syntax improvements and minor bug fixes...

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  
    531531            zCe = zz0*pqst(ji,jj)/zdq 
    532532 
    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),                 & 
    535536               &              pTau(ji,jj), zQsen, zQlat ) 
    536  
     537             
    537538            zTs2  = pTs(ji,jj)*pTs(ji,jj) 
    538539            zQlw  = emiss_w*(prlw(ji,jj) - stefan*zTs2*zTs2) ! Net longwave flux 
     
    545546   END SUBROUTINE UPDATE_QNSOL_TAU 
    546547 
    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 ) 
    550553      !!---------------------------------------------------------------------------------- 
    551554      REAL(wp),                     INTENT(in)  :: pzu  ! height above the sea-level where all this takes place (normally 10m) 
     
    598601   END SUBROUTINE BULK_FORMULA_VCTR 
    599602 
    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 ) 
    603608      !!---------------------------------------------------------------------------------- 
    604609      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.