Changeset 6292 for branches/UKMO/dev_r5518_ww3_coupling

Timestamp:

2016-02-05T07:24:47+01:00 (8 years ago)

Author:

jcastill

Message:

Change of name of couple field: from significant wave height to wave height

File:

• branches/UKMO/dev_r5518_ww3_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_ww3_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -106 +106 @@
    INTEGER, PARAMETER ::   jpr_fraqsr = 42            ! fraction of solar net radiation absorbed in the first ocean level
    INTEGER, PARAMETER ::   jpr_mslp   = 43            ! mean sea level pressure
-   INTEGER, PARAMETER ::   jpr_hsig   = 44            ! Hsig
-   INTEGER, PARAMETER ::   jpr_phioc  = 45            ! Wave=>ocean energy flux
+   INTEGER, PARAMETER ::   jpr_hwav   = 44            ! wave height
+   INTEGER, PARAMETER ::   jpr_phioc  = 45            ! wave=>ocean energy flux
    INTEGER, PARAMETER ::   jprcv      = 45            ! total number of fields received 
 
@@ -517 +517 @@
       !                                                      !      Wave breaking        !   
       !                                                      ! ------------------------- !
-      srcv(jpr_hsig)%clname  = 'O_Hsigwa'  ;   IF( TRIM(sn_rcv_hsig%cldes  ) == 'coupled' )   srcv(jpr_hsig)%laction = .TRUE.
+      srcv(jpr_hwav)%clname  = 'O_Htwave'  ;   IF( TRIM(sn_rcv_hsig%cldes  ) == 'coupled' )   srcv(jpr_hwav)%laction = .TRUE.
       srcv(jpr_phioc)%clname = 'O_PhiOce'  ;   IF( TRIM(sn_rcv_phioc%cldes ) == 'coupled' )   srcv(jpr_phioc)%laction = .TRUE.
       !