Changeset 13295 for NEMO/trunk/src/OCE/SBC/geo2ocean.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/geo2ocean.F90
r13226 r13295 160 160 ! (computation done on the north stereographic polar plane) 161 161 ! 162 DO_2D _00_01162 DO_2D( 0, 0, 0, 1 ) 163 163 ! 164 164 zlam = plamt(ji,jj) ! north pole direction & modulous (at t-point) … … 249 249 ! =============== ! 250 250 251 DO_2D _00_01251 DO_2D( 0, 0, 0, 1 ) 252 252 IF( MOD( ABS( plamv(ji,jj) - plamv(ji,jj-1) ), 360. ) < 1.e-8 ) THEN 253 253 gsint(ji,jj) = 0.
Note: See TracChangeset
for help on using the changeset viewer.