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

Changeset 5900


Ignore:
Timestamp:
2015-11-19T17:13:05+01:00 (8 years ago)
Author:
jcastill
Message:

Properly remove the atmosphere dependency of the current to wave coupled field

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5893 r5900  
    19231923#endif 
    19241924      !                                                      ! ------------------------- ! 
    1925       IF( ssnd(jps_ocx1)%laction ) THEN                      !      Surface current      ! 
    1926          !                                                   ! ------------------------- ! 
     1925      !                                                      !      Surface current      ! 
     1926      !                                                      ! ------------------------- ! 
     1927      IF( ssnd(jps_ocx1)%laction .OR. ssnd(jps_ocxw)%laction .OR. ssnd(jps_ocyw)%laction ) THEN 
    19271928         !     
    19281929         !                                                  j+1   j     -----V---F 
    … …  
    20562057         IF( ssnd(jps_ivz1)%laction )   CALL cpl_snd( jps_ivz1, isec, RESHAPE ( zitz1, (/jpi,jpj,1/) ), info )   ! ice   z current 1st grid 
    20572058         !  
    2058       ENDIF 
    2059       ! 
    2060       !currents to wave model 
    2061       IF( ssnd(jps_ocxw)%laction ) THEN 
    2062           CALL cpl_snd( jps_ocxw, isec, RESHAPE ( zotx1, (/jpi,jpj,1/) ), info )   ! ocean x current 1st grid 
    2063       ENDIF 
    2064       IF( ssnd(jps_ocyw)%laction ) THEN 
    2065           CALL cpl_snd( jps_ocyw, isec, RESHAPE ( zoty1, (/jpi,jpj,1/) ), info )   ! ocean y current 1st grid 
    2066       ENDIF 
     2059         !currents to wave model 
     2060         IF( ssnd(jps_ocxw)%laction )   CALL cpl_snd( jps_ocxw, isec, RESHAPE ( zotx1, (/jpi,jpj,1/) ), info )   ! ocean x current 1st grid 
     2061         IF( ssnd(jps_ocyw)%laction )   CALL cpl_snd( jps_ocyw, isec, RESHAPE ( zoty1, (/jpi,jpj,1/) ), info )   ! ocean y current 1st grid 
    20672062      !  
     2063      ENDIF 
     2064      ! 
    20682065      IF( ssnd(jps_ficet)%laction ) THEN 
    20692066           CALL cpl_snd( jps_ficet, isec, RESHAPE ( fr_i, (/jpi,jpj,1/) ), info ) 
Note: See TracChangeset for help on using the changeset viewer.