/home/cholod/wd/peps/ROMS/romsagrif_r215/Roms_tools/Roms_Agrif/exchange_2d_tile.h File Reference

#include "param.h"
#include "scalars.h"
#include "compute_auxiliary_bounds.h"

Include dependency graph for exchange_2d_tile.h:

Go to the source code of this file.

Functions/Subroutines
!$Id A!Set periodic boundary	conditions (if any) for a two-dimensional!field A of ZETA-
!$Id A!Set periodic boundary V or PSI type This file is designed to!generate four different by	redefining (via CPP) the!name of the subroutine exchange_2d_tile above and the starting!indices ISTART
JstrR for ZETA type!below See also mounting file exchange F!implicit none real	A (GLOBAL_2D_ARRAY) integer Istr
Variables
!$Id	__pad18__
!$Id	v
!$Id	Iend
!$Id	Jstr
!$Id	Jend
!$Id A!Set periodic boundary	U
!$Id A!Set periodic boundary V or PSI type This file is designed to!generate four different	subroutines
IstrR for	V
IstrR for ZETA type!and	JSTART = [Jstr for V-,PSI-type
JstrR for ZETA type!below See also mounting file exchange F!implicit none real	i = Istr

---

Function Documentation

JstrR for ZETA type ! below See also mounting file exchange F ! implicit none real A

(

GLOBAL_2D_ARRAY

)

Type Constraints

! $Id A ! Set periodic boundary conditions

(

if

any

)

Type Constraints

! $Id A ! Set periodic boundary V or PSI type This file is designed to ! generate four different by redefining

(

via

CPP

)

Type Constraints

---

Variable Documentation

! $Id __pad18__

Definition at line 2 of file exchange_2d_tile.h.

CC CC CC ROUTINE trcini pisces h CC ************************CC CC mo INTEGER jpan CHARACTER *clname INTEGER numdep REAL denitide REAL jpj REAL zdate0 REAL zmaskt c INCLUDE netcdf inc integer irec C C Compute record length for direct access FILE C rdt rfact2 C C INITIALISE DUST INPUT FROM ATMOSPHERE C C bioname endif nrec_dust irec endif enddo mynode TRCINI_PISCES unable to find forcing in forcing netCDF A nrec_dust do Jend do Iend nrec_dust do Jend do Iend Jend do Iend jpk c do Jend c do Iend c jpk do Jend do Iend C DO jpjm1 C DO jpim1 C jpj DO jpi jpjm1 C DO jpim1 C jpk DO jpj DO i = Istr

Definition at line 18 of file exchange_2d_tile.h.

JstrR for ZETA type ! below See also mounting file exchange F ! implicit none real Iend

Definition at line 2 of file exchange_2d_tile.h.

JstrR for ZETA type ! below See also mounting file exchange F ! implicit none real Jend

Definition at line 2 of file exchange_2d_tile.h.

IstrR for ZETA type ! and JSTART = [Jstr for V-,PSI-type

Definition at line 11 of file exchange_2d_tile.h.

JstrR for ZETA type ! below See also mounting file exchange F ! implicit none real Jstr

Definition at line 2 of file exchange_2d_tile.h.

! $Id A ! Set periodic boundary V or PSI type This file is designed to ! generate four different subroutines

Definition at line 7 of file exchange_2d_tile.h.

JstrR for U

Definition at line 7 of file exchange_2d_tile.h.

IstrR for V

Definition at line 10 of file exchange_2d_tile.h.

! $Id v

Definition at line 2 of file exchange_2d_tile.h.