Changeset 1525
- Timestamp:
- 2009-07-22T15:42:07+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/limsbc.F90
r1465 r1525 112 112 CALL lbc_lnk( tmod_io, 'T', 1. ) 113 113 ! ... ice stress over ocean with a ice-ocean rotation angle 114 DO jj = 1, jpj 114 DO jj = 1, jpjm1 115 115 ! ... change the sinus angle sign in the south hemisphere 116 116 zsang = SIGN(1.e0, gphif(1,jj) ) * sangvg 117 DO ji = 1, jpi117 DO ji = 1, fs_jpim1 118 118 ! ... ice velocity relative to the ocean 119 119 zu_u = u_ice(ji,jj) - u_oce(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.