Changeset 3374 for branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbthm.F90

Timestamp:

2012-04-30T13:24:25+02:00 (12 years ago)

Author:

sga

Message:

NEMO branch dev_r3337_NOCS10_ICB: adopt mig, mjg, mi1 and mj1 for improved obscurity

File:

• branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbthm.F90 (modified) (1 diff)

branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbthm.F90

@@ -82 +82 @@
          zxi  = pt%xi                                      ! position in (i,j) referential
          zyj  = pt%yj
-         ii  = INT( zxi + 0.5 ) - nimpp + 1                    ! t-cell of the berg
-         ij  = INT( zyj + 0.5 ) - njmpp + 1
+         ii  = INT( zxi + 0.5 )                            ! T-cell of the berg
+         ii  = mi1( ii )
+         ij  = INT( zyj + 0.5 )              
+         ij  = mi1( ij )
          zVol = zT * zW * zL
          zdt = berg_dt   ;   z1_dt = 1._wp / zdt