Changeset 5924


Ignore:
Timestamp:
2015-11-26T11:15:27+01:00 (5 years ago)
Author:
jcastill
Message:

Add sea surface height to the list of fields that can be passed to waves (done independently of OPA→SAS coupling, which should not be affected)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_ww3_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r5903 r5924  
    157157   TYPE(FLD_C) ::   sn_rcv_cal, sn_rcv_iceflx, sn_rcv_co2, sn_rcv_mslp                           
    158158   ! Send to waves 
    159    TYPE(FLD_C) ::   sn_snd_ifrac, sn_snd_crtw 
     159   TYPE(FLD_C) ::   sn_snd_ifrac, sn_snd_crtw, sn_snd_ssh 
    160160   ! Received from waves 
    161161   TYPE(FLD_C) ::   sn_rcv_hsig,sn_rcv_phioc 
     
    233233      NAMELIST/namsbc_cpl/  sn_snd_temp , sn_snd_alb  , sn_snd_thick , sn_snd_crt   , sn_snd_co2,      & 
    234234         &                  sn_rcv_w10m, sn_rcv_taumod, sn_rcv_tau   , sn_rcv_dqnsdt, sn_rcv_qsr,      & 
    235          &                  sn_snd_ifrac, sn_snd_crtw , sn_rcv_hsig  , sn_rcv_phioc ,                  & 
     235         &                  sn_snd_ifrac, sn_snd_crtw , sn_snd_ssh   , sn_rcv_hsig  , sn_rcv_phioc ,   & 
    236236         &                  sn_rcv_qns , sn_rcv_emp   , sn_rcv_rnf   , sn_rcv_cal   , sn_rcv_iceflx,   & 
    237237         &                  sn_rcv_co2 , nn_cplmodel  , ln_usecplmask, sn_rcv_mslp 
     
    288288         WRITE(numout,*)'                      - mesh          = ', sn_snd_crt%clvgrd 
    289289         WRITE(numout,*)'      oce co2 flux                    = ', TRIM(sn_snd_co2%cldes   ), ' (', TRIM(sn_snd_co2%clcat   ), ')' 
     290         WRITE(numout,*)'      sea surface height              = ', TRIM(sn_snd_ssh%cldes   ), ' (', TRIM(sn_snd_ssh%clcat   ), ')' 
    290291         WRITE(numout,*)'      mean sea level pressure         = ', TRIM(sn_rcv_mslp%cldes  ), ' (', TRIM(sn_rcv_mslp%clcat  ), ')' 
    291292         WRITE(numout,*)'      surface current to waves        = ', TRIM(sn_snd_crtw%cldes   ), ' (', TRIM(sn_snd_crtw%clcat   ), ')' 
     
    747748      ssnd(jps_co2)%clname = 'O_CO2FLX' ;  IF( TRIM(sn_snd_co2%cldes) == 'coupled' )    ssnd(jps_co2 )%laction = .TRUE. 
    748749 
     750      !                                                      ! ------------------------- ! 
     751      !                                                      !     Sea surface height    ! 
     752      !                                                      ! ------------------------- ! 
     753      ssnd(jps_ssh)%clname = 'O_SSHght' ;  IF( TRIM(sn_snd_ssh%cldes) == 'coupled' )    ssnd(jps_ssh )%laction = .TRUE. 
     754 
    749755      !                                                      ! ------------------------------- ! 
    750756      !                                                      !   OPA-SAS coupling - snd by opa !    
    751757      !                                                      ! ------------------------------- ! 
    752       ssnd(jps_ssh   )%clname = 'O_SSHght'  
    753758      ssnd(jps_soce  )%clname = 'O_SSSal'  
    754759      ssnd(jps_e3t1st)%clname = 'O_E3T1st'    
Note: See TracChangeset for help on using the changeset viewer.