Changeset 5900 for branches/UKMO/dev_r5518_ww3_coupling
- Timestamp:
- 2015-11-19T17:13:05+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_ww3_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r5893 r5900 1923 1923 #endif 1924 1924 ! ! ------------------------- ! 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 1927 1928 ! 1928 1929 ! j+1 j -----V---F … … 2056 2057 IF( ssnd(jps_ivz1)%laction ) CALL cpl_snd( jps_ivz1, isec, RESHAPE ( zitz1, (/jpi,jpj,1/) ), info ) ! ice z current 1st grid 2057 2058 ! 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 2067 2062 ! 2063 ENDIF 2064 ! 2068 2065 IF( ssnd(jps_ficet)%laction ) THEN 2069 2066 CALL cpl_snd( jps_ficet, isec, RESHAPE ( fr_i, (/jpi,jpj,1/) ), info )
Note: See TracChangeset
for help on using the changeset viewer.