- Timestamp:
- 2011-12-06T17:40:25+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90
r3186 r3195 57 57 REAL(wp), DIMENSION ( 2 ) :: zsurfx, zsurfy ! surface of the face of the mesh 58 58 59 INTEGER , POINTER, DIMENSION ( : ) :: & 60 iil, ijl, ikl, & ! index of nearest mesh 61 iiloc , ijloc, & 62 iiinfl, ijinfl, ikinfl, & ! index of input mesh of the float. 63 iioutfl, ijoutfl, ikoutfl ! index of output mesh of the float. 64 REAL(wp) , POINTER, DIMENSION ( : ) :: & 65 zgifl, zgjfl, zgkfl, & ! position of floats, index on 66 ! velocity mesh. 67 ztxfl, ztyfl, ztzfl, & ! time for a float to quit the mesh 68 ! across one of the face x,y and z 69 zttfl, & ! time for a float to quit the mesh 70 zagefl, & ! time during which, trajectorie of 71 ! the float has been computed 72 zagenewfl, & ! new age of float after calculation 73 ! of new position 74 zufl, zvfl, zwfl, & ! interpolated vel. at float position 75 zudfl, zvdfl, zwdfl, & ! velocity diff input/output of mesh 76 zgidfl, zgjdfl, zgkdfl ! direction index of float 59 INTEGER , POINTER, DIMENSION ( : ) :: iil, ijl, ikl ! index of nearest mesh 60 INTEGER , POINTER, DIMENSION ( : ) :: iiloc , ijloc 61 INTEGER , POINTER, DIMENSION ( : ) :: iiinfl, ijinfl, ikinfl ! index of input mesh of the float. 62 INTEGER , POINTER, DIMENSION ( : ) :: iioutfl, ijoutfl, ikoutfl ! index of output mesh of the float. 63 REAL(wp) , POINTER, DIMENSION ( : ) :: zgifl, zgjfl, zgkfl ! position of floats, index on 64 ! ! velocity mesh. 65 REAL(wp) , POINTER, DIMENSION ( : ) :: ztxfl, ztyfl, ztzfl ! time for a float to quit the mesh 66 ! ! across one of the face x,y and z 67 REAL(wp) , POINTER, DIMENSION ( : ) :: zttfl ! time for a float to quit the mesh 68 REAL(wp) , POINTER, DIMENSION ( : ) :: zagefl ! time during which, trajectorie of 69 ! ! the float has been computed 70 REAL(wp) , POINTER, DIMENSION ( : ) :: zagenewfl ! new age of float after calculation 71 ! ! of new position 72 REAL(wp) , POINTER, DIMENSION ( : ) :: zufl, zvfl, zwfl ! interpolated vel. at float position 73 REAL(wp) , POINTER, DIMENSION ( : ) :: zudfl, zvdfl, zwdfl ! velocity diff input/output of mesh 74 REAL(wp) , POINTER, DIMENSION ( : ) :: zgidfl, zgjdfl, zgkdfl ! direction index of float 77 75 !!--------------------------------------------------------------------- 78 76 CALL wrk_alloc( jpnfl , iil , ijl , ikl , iiloc , ijloc )
Note: See TracChangeset
for help on using the changeset viewer.