Changeset 2528 for trunk/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90
- Timestamp:
- 2010-12-27T18:33:53+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90
- Property svn:eol-style deleted
r1152 r2528 8 8 !! 'key_floats' float trajectories 9 9 !!---------------------------------------------------------------------- 10 11 !!----------------------------------------------------------------------12 10 !! flotblk : compute float trajectories with Blanke algorithme 13 11 !!---------------------------------------------------------------------- 14 !! * Modules used15 12 USE flo_oce ! ocean drifting floats 16 13 USE oce ! ocean dynamics and tracers … … 23 20 PRIVATE 24 21 25 !! * Accessibility 26 PUBLIC flo_blk ! routine called by floats.F90 22 PUBLIC flo_blk ! routine called by floats.F90 27 23 28 24 !! * Substitutions 29 25 # include "domzgr_substitute.h90" 30 26 !!---------------------------------------------------------------------- 31 !! OPA 9.0 , LOCEAN-IPSL (2005)27 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 32 28 !! $Id$ 33 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 34 !!---------------------------------------------------------------------- 35 29 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 30 !!---------------------------------------------------------------------- 36 31 CONTAINS 37 32 … … 46 41 !! algorithm. We need to know the velocity field, the old positions 47 42 !! of the floats and the grid defined on the domain. 43 !!---------------------------------------------------------------------- 44 INTEGER, INTENT( in ) :: kt ! ocean time step 48 45 !! 49 !!----------------------------------------------------------------------50 !! * arguments51 INTEGER, INTENT( in ) :: kt ! ocean time step52 53 !! * Local declarations54 46 INTEGER :: jfl ! dummy loop arguments 55 47 INTEGER :: ind, ifin, iloop … … 78 70 zsurfz, & ! surface of the face of the mesh 79 71 zind 80 REAL(wp), DIMENSION ( 2 ) :: & 81 zsurfx, zsurfy ! surface of the face of the mesh 72 REAL(wp), DIMENSION ( 2 ) :: zsurfx, zsurfy ! surface of the face of the mesh 82 73 !!--------------------------------------------------------------------- 83 74 … … 111 102 iloop = 0 112 103 222 DO jfl = 1, jpnfl 113 # if defined key_mpp_mpi || defined key_mpp_shmem104 # if defined key_mpp_mpi 114 105 IF( (iil(jfl) >= (mig(nldi)-jpizoom+1)) .AND. (iil(jfl) <= (mig(nlei)-jpizoom+1)) .AND. & 115 106 (ijl(jfl) >= (mjg(nldj)-jpjzoom+1)) .AND. (ijl(jfl) <= (mjg(nlej)-jpjzoom+1)) ) THEN … … 327 318 ! reinitialisation of the age of FLOAT 328 319 zagefl(jfl) = zagenewfl(jfl) 329 # if defined key_mpp_mpi || defined key_mpp_shmem320 # if defined key_mpp_mpi 330 321 ELSE 331 322 ! we put zgifl, zgjfl, zgkfl, zagefl … … 413 404 GO TO 222 414 405 ENDIF 415 406 ! 416 407 END SUBROUTINE flo_blk 417 408
Note: See TracChangeset
for help on using the changeset viewer.