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 7807 for branches/UKMO/r6232_HZG_WAVE/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90 – NEMO

Ignore:
Timestamp:
2017-03-17T10:44:05+01:00 (7 years ago)
Author:
jcastill
Message:

Changes as in HZG wave forcing branch, but adapted to r6232

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/r6232_HZG_WAVE/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90

    r5407 r7807  
    6262   !                                             !:  = 1 global mean of e-p-r set to zero at each nn_fsbc time step 
    6363   !                                             !:  = 2 annual global mean of e-p-r set to zero 
    64    LOGICAL , PUBLIC ::   ln_wave        !: true if some coupling with wave model 
    65    LOGICAL , PUBLIC ::   ln_cdgw        !: true if neutral drag coefficient from wave model 
    66    LOGICAL , PUBLIC ::   ln_sdw         !: true if 3d stokes drift from wave model 
     64  ! LOGICAL , PUBLIC ::   ln_wave        !: true if some coupling with wave model 
     65   LOGICAL , PUBLIC ::   ln_cdgw = .FALSE.        !: true if neutral drag coefficient from wave model 
     66  ! LOGICAL , PUBLIC ::   ln_sdw         !: true if 3d stokes drift from wave model 
     67         ! WAVE2NEMO 11.12.2016 
     68      LOGICAL , PUBLIC ::   ln_wavetke  = .FALSE.   !: true if wave parametersare read 
     69      LOGICAL , PUBLIC ::   ln_stcor    = .FALSE.   !: true if Stokes-Coriolisforcing is included  
     70      LOGICAL , PUBLIC ::   ln_tauoc    = .FALSE.   !: true if wave-modifiedwater-side stress is used 
     71      ! END  WAVE2NEMO 
     72    
     73 
    6774   ! 
    6875   LOGICAL , PUBLIC ::   ln_icebergs    !: Icebergs 
     
    125132#endif 
    126133   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xcplmask          !: coupling mask for ln_mixcpl (warning: allocated in sbccpl) 
    127  
     134   ! START WAVE2NEMO 26.11.2016 
     135   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   tauoc_wavepar !:normalized stress into the ocean from wave model  CCC 
     136   REAL(wp), PUBLIC,ALLOCATABLE,SAVE,DIMENSION (:,:)       :: wspd_wavepar  !CCCmoved to sbc_oce    
     137   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   cdn_wave !:wave model drag coefficient [N/m2] 
     138  ! END  
     139!WAVE2NEMO (14.12.2016) rn_crban moved to here, it needs to be a more global variable 
     140   REAL(wp),PUBLIC,ALLOCATABLE,SAVE, DIMENSION (:,:)  ::  rn_crban 
    128141   !!---------------------------------------------------------------------- 
    129142   !!                     Sea Surface Mean fields 
     
    176189      ALLOCATE( e3t_m(jpi,jpj) , STAT=ierr(5) ) 
    177190#endif 
    178          ! 
     191      ! Start WAVE2NEMO 11.12.2016 
     192      ALLOCATE( cdn_wave(jpi,jpj) ) 
     193      ALLOCATE( wspd_wavepar(jpi,jpj) ) 
     194      ! End 
     195   ! 
     196          ALLOCATE( rn_crban(jpi,jpj) ) !WAVE2NEMO (13.12.2016) 
     197 
     198! 
    179199      sbc_oce_alloc = MAXVAL( ierr ) 
    180200      IF( lk_mpp            )   CALL mpp_sum ( sbc_oce_alloc ) 
Note: See TracChangeset for help on using the changeset viewer.