9 |
C |
C |
10 |
C Main Routines: |
C Main Routines: |
11 |
C |
C |
12 |
C o flt_main - Integrates the floats forward and stores |
C o flt_main - Integrates the floats forward and stores |
13 |
C positions and vertical profiles at specific |
C positions and vertical profiles at specific |
14 |
C time intervals. |
C time intervals. |
15 |
C o flt_init - Initialise the floats |
C o flt_readparms - Read parameter file |
16 |
C o flt_restart - Writes restart data to file (=> renamed: flt_write_pickup) |
C o flt_init_fixed - Initialise fixed |
17 |
|
C o flt_init_varia - Initialise the floats |
18 |
|
C o flt_restart - Writes restart data to file (=> renamed: flt_write_pickup) |
19 |
C |
C |
20 |
C Second Level Subroutines: |
C Second Level Subroutines: |
21 |
C |
C |
22 |
C o flt_runga2 - Second order Runga-Kutta inetgration (default) |
C o flt_runga2 - Second order Runga-Kutta inetgration (default) |
23 |
C o flt_exchg - Does a new distribution of floats over tiles |
C o flt_exchg - Does a new distribution of floats over tiles |
24 |
C after every integration step. |
C after every integration step. |
25 |
C o flt_up - moves float to the surface (if flag is set) |
C o flt_up - moves float to the surface (if flag is set) |
26 |
C and stores profiles to file |
C and stores profiles to file |
27 |
C o flt_down - moves float to its target depth (if flag is set) |
C o flt_down - moves float to its target depth (if flag is set) |
28 |
C o flt_traj - stores positions and data to file |
C o flt_traj - stores positions and data to file |
29 |
C o flt_bilinear - contains blinear interpolation scheme |
C o flt_interp_linear - contains blinear interpolation scheme |
30 |
C o flt_functions - contains some functions |
C o flt_mapping - contains mapping functions & subroutine |
31 |
C o flt_mdsreadvector - modified mdsreadvector to read files |
C o flt_mdsreadvector - modified mdsreadvector to read files |
32 |
C |
C |
33 |
C ToDo: |
C ToDo: |
34 |
C |
C |
57 |
C ================================================================== |
C ================================================================== |
58 |
C SUBROUTINE FLT_MAIN |
C SUBROUTINE FLT_MAIN |
59 |
C ================================================================== |
C ================================================================== |
|
C |
|
60 |
C o This routine steps floats forward in time and samples the model |
C o This routine steps floats forward in time and samples the model |
61 |
C state at float position every flt_int_traj time steps. |
C state at float position every flt_int_traj time steps. |
62 |
C Also moves the float up and down and samples vertical profiles. |
C Also moves the float up and down and samples vertical profiles. |
70 |
C profile over the whole water column is written to file and the |
C profile over the whole water column is written to file and the |
71 |
C float might be moved upwards to the surface (depending on its |
C float might be moved upwards to the surface (depending on its |
72 |
C configuration). |
C configuration). |
|
Cc |
|
|
C ================================================================== |
|
|
C SUBROUTINE FLT_MAIN |
|
73 |
C ================================================================== |
C ================================================================== |
74 |
|
|
75 |
|
C !USES: |
76 |
|
IMPLICIT NONE |
77 |
|
|
78 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
79 |
#include "SIZE.h" |
#include "SIZE.h" |
80 |
#include "FLT.h" |
#include "FLT.h" |
81 |
|
|
82 |
C == routine arguments == |
C == routine arguments == |
|
|
|
83 |
C myThid - thread number for this instance of the routine. |
C myThid - thread number for this instance of the routine. |
|
|
|
84 |
_RL myTime |
_RL myTime |
85 |
INTEGER myIter, myThid |
INTEGER myIter, myThid |
86 |
|
|