Changeset 14215 for NEMO/trunk/src/OCE/SBC/geo2ocean.F90
- Timestamp:
- 2020-12-18T14:49:22+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/geo2ocean.F90
r13295 r14215 160 160 ! (computation done on the north stereographic polar plane) 161 161 ! 162 DO_2D( 0, 0, 0, 1)162 DO_2D( 0, 1, 0, 0 ) 163 163 ! 164 164 zlam = plamt(ji,jj) ! north pole direction & modulous (at t-point) … … 249 249 ! =============== ! 250 250 251 DO_2D( 0, 0, 0, 1)251 DO_2D( 0, 1, 0, 0 ) 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.