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 15433 – NEMO

Changeset 15433


Ignore:
Timestamp:
2021-10-22T11:16:15+02:00 (10 months ago)
Author:
dancopsey
Message:

Add evap only option

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_dan/src/OCE/SBC/sbccpl.F90

    r15178 r15433  
    463463         IF ( k_ice <= 1 )  srcv(jpr_ievp)%laction = .FALSE. 
    464464      CASE( 'ice only'  )       ;   srcv(jpr_ievp)%laction = .TRUE.  
     465      CASE( 'evap only'  )      ;   srcv( (/jpr_ievp, jpr_tevp/) )%laction = .TRUE. 
    465466      CASE( 'oce and ice'   )   ;   srcv( (/jpr_ievp, jpr_sbpr, jpr_semp, jpr_oemp/) )%laction = .TRUE. 
    466467      CASE default              ;   CALL ctl_stop( 'sbc_cpl_init: wrong definition of sn_rcv_emp%cldes' ) 
     
    14991500            CASE( 'oce only', 'oce and ice' ) 
    15001501               zemp(:,:) = frcv(jpr_oemp)%z3(:,:,1) 
     1502            CASE( 'evap only' ) 
     1503               zemp(:,:) = frcv(jpr_tevp)%z3(:,:,1) 
    15011504            CASE default 
    15021505               CALL ctl_stop( 'sbc_cpl_rcv: wrong definition of sn_rcv_emp%cldes' ) 
     
    17751778         zemp_tot(:,:) =   frcv(jpr_tevp)%z3(:,:,1) - ztprecip(:,:) 
    17761779         zemp_ice(:,:) = ( frcv(jpr_ievp)%z3(:,:,1) - frcv(jpr_snow)%z3(:,:,1) ) * picefr(:,:) 
     1780      CASE( 'evap only' )   ! received fields: jpr_ievp, jpr_tevp 
     1781         zsprecip(:,:) =   0._wp                  ! May need to ensure positive here 
     1782         ztprecip(:,:) =   0._wp  ! May need to ensure positive here 
     1783         zemp_tot(:,:) =   frcv(jpr_tevp)%z3(:,:,1) 
     1784         zemp_ice(:,:) =   frcv(jpr_ievp)%z3(:,:,1) 
    17771785      CASE( 'oce and ice'   )   ! received fields: jpr_sbpr, jpr_semp, jpr_oemp, jpr_ievp 
    17781786         zemp_tot(:,:) = ziceld(:,:) * frcv(jpr_oemp)%z3(:,:,1) + picefr(:,:) * frcv(jpr_sbpr)%z3(:,:,1) 
Note: See TracChangeset for help on using the changeset viewer.