Changeset 5853 for branches/UKMO/dev_r5518_ww3_coupling
- Timestamp:
- 2015-11-02T13:18:27+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_ww3_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r5851 r5853 2057 2057 ! 2058 2058 !currents to wave model 2059 IF( ssnd(jps_ocxw)%laction ) CALL cpl_ prism_snd( jps_ocxw, isec, RESHAPE ( zotx1, (/jpi,jpj,1/) ), info ) ! ocean x current 1st grid2060 IF( ssnd(jps_ocyw)%laction ) CALL cpl_ prism_snd( jps_ocyw, isec, RESHAPE ( zoty1, (/jpi,jpj,1/) ), info ) ! ocean y current 1st grid2059 IF( ssnd(jps_ocxw)%laction ) CALL cpl_snd( jps_ocxw, isec, RESHAPE ( zotx1, (/jpi,jpj,1/) ), info ) ! ocean x current 1st grid 2060 IF( ssnd(jps_ocyw)%laction ) CALL cpl_snd( jps_ocyw, isec, RESHAPE ( zoty1, (/jpi,jpj,1/) ), info ) ! ocean y current 1st grid 2061 2061 ! 2062 2062 ENDIF 2063 2063 ! 2064 2064 IF( ssnd(jps_ficet)%laction ) THEN 2065 CALL cpl_ prism_snd( jps_ficet, isec, RESHAPE ( fr_i, (/jpi,jpj,1/) ), info )2065 CALL cpl_snd( jps_ficet, isec, RESHAPE ( fr_i, (/jpi,jpj,1/) ), info ) 2066 2066 END IF 2067 2067 !
Note: See TracChangeset
for help on using the changeset viewer.