FV3 Bundle
drifters.F90 File Reference
#include "fms_switches.h"
#include <fms_platform.h>
#include <file_version.h>
#include "drifters_push.h"
#include "drifters_set_field.h"
#include "drifters_compute_k.h"
Include dependency graph for drifters.F90:

Go to the source code of this file.

Data Types

type  drifters_mod::drifters_type
 
interface  drifters_mod::assignment(=)
 
interface  drifters_mod::drifters_push
 
interface  drifters_mod::drifters_compute_k
 
interface  drifters_mod::drifters_set_field
 

Modules

module  drifters_mod
 

Macros

#define _FLATTEN(A)   reshape((A), (/size((A))/) )
 
#define _MPP_PE   0
 
#define _MPP_ROOT   0
 
#define _MPP_NPES   1
 
#define _TYPE_DOMAIN2D   integer
 
#define _DIMS   2
 
#define drifters_push_XXX   drifters_push_2
 
#define _DIMS   3
 
#define drifters_push_XXX   drifters_push_3
 
#define _DIMS   2
 
#define drifters_set_field_XXX   drifters_set_field_2d
 
#define _DIMS   3
 
#define drifters_set_field_XXX   drifters_set_field_3d
 
#define _DIMS   2
 
#define drifters_compute_k_XXX   drifters_computek2d
 
#define _DIMS   3
 
#define drifters_compute_k_XXX   drifters_computek3d
 

Functions/Subroutines

subroutine, public drifters_mod::drifters_new (self, input_file, output_file, ermesg)
 
subroutine, public drifters_mod::drifters_del (self, ermesg)
 
subroutine drifters_mod::drifters_copy_new (new_instance, old_instance)
 
subroutine, public drifters_mod::drifters_set_domain (self, xmin_comp, xmax_comp, ymin_comp, ymax_comp, xmin_data, xmax_data, ymin_data, ymax_data, xmin_glob, xmax_glob, ymin_glob, ymax_glob, ermesg)
 
subroutine, public drifters_mod::drifters_set_pe_neighbors (self, domain, ermesg)
 
subroutine drifters_mod::drifters_modulo (self, positions, ermesg)
 
subroutine, public drifters_mod::drifters_save (self, ermesg)
 
subroutine, public drifters_mod::drifters_distribute (self, ermesg)
 
subroutine, public drifters_mod::drifters_write_restart (self, filename, x1, y1, geolon1, x2, y2, geolat2, root, mycomm, ermesg)
 
subroutine, public drifters_mod::drifters_set_v_axes (self, component, x, y, z, ermesg)
 
subroutine, public drifters_mod::drifters_set_domain_bounds (self, domain, backoff_x, backoff_y, ermesg)
 
subroutine, public drifters_mod::drifters_positions2lonlat (self, positions, x1, y1, geolon1, x2, y2, geolat2, lons, lats, ermesg)
 
subroutine, public drifters_mod::drifters_print_checksums (self, pe, ermesg)
 
subroutine drifters_mod::drifters_reset_rk4 (self, ermesg)
 
subroutine my_error_handler (mesg)
 
program test
 

Variables

integer, parameter, private drifters_mod::max_str_len = 128
 
real, dimension(0) drifters_mod::drft_empty_array
 

Macro Definition Documentation

◆ _DIMS [1/6]

#define _DIMS   2

◆ _DIMS [2/6]

#define _DIMS   3

◆ _DIMS [3/6]

#define _DIMS   2

◆ _DIMS [4/6]

#define _DIMS   3

◆ _DIMS [5/6]

#define _DIMS   2

◆ _DIMS [6/6]

#define _DIMS   3

◆ _FLATTEN

#define _FLATTEN (   A)    reshape((A), (/size((A))/) )

◆ _MPP_NPES

#define _MPP_NPES   1

◆ _MPP_PE

#define _MPP_PE   0

◆ _MPP_ROOT

#define _MPP_ROOT   0

◆ _TYPE_DOMAIN2D

#define _TYPE_DOMAIN2D   integer

◆ drifters_compute_k_XXX [1/2]

#define drifters_compute_k_XXX   drifters_computek2d

◆ drifters_compute_k_XXX [2/2]

#define drifters_compute_k_XXX   drifters_computek3d

◆ drifters_push_XXX [1/2]

#define drifters_push_XXX   drifters_push_2

◆ drifters_push_XXX [2/2]

#define drifters_push_XXX   drifters_push_3

◆ drifters_set_field_XXX [1/2]

#define drifters_set_field_XXX   drifters_set_field_2d

◆ drifters_set_field_XXX [2/2]

#define drifters_set_field_XXX   drifters_set_field_3d

Function/Subroutine Documentation

◆ my_error_handler()

subroutine my_error_handler ( character(len=*), intent(in)  mesg)
private

Definition at line 1363 of file drifters.F90.

Here is the caller graph for this function:

◆ test()

program test ( )

Definition at line 1376 of file drifters.F90.

Here is the call graph for this function: