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 12629 for NEMO/trunk/src/OCE – NEMO

Changeset 12629 for NEMO/trunk/src/OCE


Ignore:
Timestamp:
2020-03-30T17:13:24+02:00 (4 years ago)
Author:
laurent
Message:

Bugfixes into STATION_ASF, including jpk-related array-out-of-bounds error => jpk==2 !

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/sbcblk.F90

    r12615 r12629  
    10361036      evap_ice (:,:,:) = rn_efac * qla_ice (:,:,:) * z1_rLsub    ! sublimation 
    10371037      devap_ice(:,:,:) = rn_efac * dqla_ice(:,:,:) * z1_rLsub    ! d(sublimation)/dT 
    1038       zevap    (:,:)   = rn_efac * ( emp(:,:) + tprecip(:,:) )   ! evaporation over ocean  !LB: should we remove rn_efac here??? 
     1038      zevap    (:,:)   = emp(:,:) + tprecip(:,:)   ! evaporation over ocean  !LB: removed rn_efac here, correct??? 
    10391039 
    10401040      ! --- evaporation minus precipitation --- ! 
Note: See TracChangeset for help on using the changeset viewer.