Changeset 7797


Ignore:
Timestamp:
2017-03-15T10:44:35+01:00 (4 years ago)
Author:
jcastill
Message:

Changes as in parent branch at r7796

Location:
branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/CONFIG/SHARED/namelist_ref

    r7792 r7797  
    393393   sn_rcv_wper   =       'none'                 ,    'no'    ,     ''      ,         ''          ,   ''  
    394394   sn_rcv_wnum   =       'none'                 ,    'no'    ,     ''      ,         ''          ,   ''  
    395    sn_rcv_wstrf  =       'none'                 ,    'no'    ,     ''      ,         ''          ,   ''  
     395   sn_rcv_tauoc  =       'none'                 ,    'no'    ,     ''      ,         ''          ,   ''  
    396396   sn_rcv_wdrag  =       'none'                 ,    'no'    ,     ''      ,         ''          ,   ''  
    397397! 
  • branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r7792 r7797  
    113113   INTEGER, PARAMETER ::   jpr_wper   = 48            ! Mean wave period  
    114114   INTEGER, PARAMETER ::   jpr_wnum   = 49            ! Mean wavenumber  
    115    INTEGER, PARAMETER ::   jpr_wstrf  = 50            ! Stress fraction adsorbed by waves  
     115   INTEGER, PARAMETER ::   jpr_tauoc  = 50            ! Stress fraction adsorbed by waves  
    116116   INTEGER, PARAMETER ::   jpr_wdrag  = 51            ! Neutral surface drag coefficient  
    117117   INTEGER, PARAMETER ::   jprcv      = 51            ! total number of fields received 
     
    167167   TYPE(FLD_C) ::   sn_snd_ifrac, sn_snd_crtw, sn_snd_wlev   
    168168   ! Received from waves   
    169    TYPE(FLD_C) ::   sn_rcv_hsig,sn_rcv_phioc,sn_rcv_sdrfx,sn_rcv_sdrfy,sn_rcv_wper,sn_rcv_wnum,sn_rcv_wstrf,sn_rcv_wdrag 
     169   TYPE(FLD_C) ::   sn_rcv_hsig,sn_rcv_phioc,sn_rcv_sdrfx,sn_rcv_sdrfy,sn_rcv_wper,sn_rcv_wnum,sn_rcv_tauoc,sn_rcv_wdrag 
    170170   ! Other namelist parameters                        ! 
    171171   INTEGER     ::   nn_cplmodel            ! Maximum number of models to/from which NEMO is potentialy sending/receiving data 
     
    242242         &                  sn_rcv_w10m, sn_rcv_taumod, sn_rcv_tau   , sn_rcv_dqnsdt, sn_rcv_qsr,      &   
    243243         &                  sn_snd_ifrac, sn_snd_crtw , sn_snd_wlev  , sn_rcv_hsig  , sn_rcv_phioc ,   &   
    244          &                  sn_rcv_sdrfx, sn_rcv_sdrfy, sn_rcv_wper  , sn_rcv_wnum  , sn_rcv_wstrf ,   &  
     244         &                  sn_rcv_sdrfx, sn_rcv_sdrfy, sn_rcv_wper  , sn_rcv_wnum  , sn_rcv_tauoc ,   &  
    245245         &                  sn_rcv_wdrag, sn_rcv_qns  , sn_rcv_emp   , sn_rcv_rnf   , sn_rcv_cal   ,   &  
    246246         &                  sn_rcv_iceflx,sn_rcv_co2  , nn_cplmodel  , ln_usecplmask, sn_rcv_mslp 
     
    291291         WRITE(numout,*)'      Mean wave period                = ', TRIM(sn_rcv_wper%cldes  ), ' (', TRIM(sn_rcv_wper%clcat  ), ')'   
    292292         WRITE(numout,*)'      Mean wave number                = ', TRIM(sn_rcv_wnum%cldes  ), ' (', TRIM(sn_rcv_wnum%clcat  ), ')'   
    293          WRITE(numout,*)'      Stress frac adsorbed by waves   = ', TRIM(sn_rcv_wstrf%cldes ), ' (', TRIM(sn_rcv_wstrf%clcat ), ')'   
     293         WRITE(numout,*)'      Stress frac adsorbed by waves   = ', TRIM(sn_rcv_tauoc%cldes ), ' (', TRIM(sn_rcv_tauoc%clcat ), ')'   
    294294         WRITE(numout,*)'      Neutral surf drag coefficient   = ', TRIM(sn_rcv_wdrag%cldes ), ' (', TRIM(sn_rcv_wdrag%clcat ), ')' 
    295295         WRITE(numout,*)'  sent fields (multiple ice categories)' 
     
    564564         cpl_wnum = .TRUE.  
    565565      ENDIF  
    566       srcv(jpr_wstrf)%clname = 'O_WStrf'     ! stress fraction adsorbed by the wave  
    567       IF( TRIM(sn_rcv_wstrf%cldes ) == 'coupled' )  THEN  
    568          srcv(jpr_wstrf)%laction = .TRUE.  
    569          cpl_wstrf = .TRUE.  
     566      srcv(jpr_tauoc)%clname = 'O_TauOce'     ! stress fraction adsorbed by the wave  
     567      IF( TRIM(sn_rcv_tauoc%cldes ) == 'coupled' )  THEN  
     568         srcv(jpr_tauoc)%laction = .TRUE.  
     569         cpl_tauoc = .TRUE.  
    570570      ENDIF  
    571571      srcv(jpr_wdrag)%clname = 'O_WDrag'     ! neutral surface drag coefficient  
     
    11941194      !                                                      ! Stress adsorbed by waves  !  
    11951195      !                                                      ! ========================= !   
    1196       IF( srcv(jpr_wstrf)%laction .AND. ln_tauoc ) tauoc_wave(:,:) = frcv(jpr_wstrf)%z3(:,:,1)  
     1196      IF( srcv(jpr_tauoc)%laction .AND. ln_tauoc ) tauoc_wave(:,:) = frcv(jpr_tauoc)%z3(:,:,1)  
    11971197       
    11981198      !  Fields received by SAS when OASIS coupling 
  • branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90

    r7792 r7797  
    4343   LOGICAL, PUBLIC ::   cpl_wper   = .FALSE. 
    4444   LOGICAL, PUBLIC ::   cpl_wnum   = .FALSE. 
    45    LOGICAL, PUBLIC ::   cpl_wstrf  = .FALSE. 
     45   LOGICAL, PUBLIC ::   cpl_tauoc  = .FALSE. 
    4646   LOGICAL, PUBLIC ::   cpl_wdrag  = .FALSE. 
    4747 
     
    215215      ENDIF 
    216216 
    217       IF( ln_tauoc .AND. .NOT. cpl_wstrf ) THEN    !==  Wave induced stress  ==! 
     217      IF( ln_tauoc .AND. .NOT. cpl_tauoc ) THEN    !==  Wave induced stress  ==! 
    218218         CALL fld_read( kt, nn_fsbc, sf_tauoc )          ! read wave norm stress from external forcing 
    219219         tauoc_wave(:,:) = sf_tauoc(1)%fnow(:,:,1) 
     
    295295 
    296296      IF( ln_tauoc ) THEN 
    297          IF( .NOT. cpl_wstrf ) THEN 
     297         IF( .NOT. cpl_tauoc ) THEN 
    298298            ALLOCATE( sf_tauoc(1), STAT=ierror )           !* allocate and fill sf_wave with sn_tauoc 
    299299            IF( ierror > 0 )   CALL ctl_stop( 'STOP', 'sbc_wave_init: unable to allocate sf_wave structure' ) 
Note: See TracChangeset for help on using the changeset viewer.