/home/cholod/wd/peps/ROMS/romsagrif_r215/Roms_tools/Roms_Agrif/PISCES/trcini.pisces.h File Reference

#include "netcdf.inc"
#include "ncscrum.h"
#include "scalars.h"

Include dependency graph for trcini.pisces.h:

Go to the source code of this file.

Functions/Subroutines

CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER jpan CHARACTER
*clname INTEGER 		istep (jpmois)
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER jpan CHARACTER
*clname INTEGER 		istep0 (jpan) INTEGER numriv
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER jpan CHARACTER
*clname INTEGER numdep REAL
denitide REAL 		ndepo (jpi, jpj)
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER jpan CHARACTER
*clname INTEGER numdep REAL
denitide REAL 		river (jpi, jpj) REAL riverdoc(jpi
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER jpan CHARACTER
*clname INTEGER numdep REAL
denitide REAL jpj REAL 		dustmp (GLOBAL_2D_ARRAY, 12) REAL zsecond
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER jpan CHARACTER
*clname INTEGER numdep REAL
denitide REAL jpj REAL 		zlon (jpi, jpj)
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER jpan CHARACTER
*clname INTEGER numdep REAL
denitide REAL jpj REAL 		zlat (jpi, jpj)
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER jpan CHARACTER
*clname INTEGER numdep REAL
denitide REAL jpj REAL 		zlev (jpk)
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 		!IF (bdustfer) THEN!lstr
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 		format (/,'TRCINI_PISCES-unable to open forcing netCDF ', 1x, A)!5 format(/
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 		format (/,'TRCINI_PISCES-error while reading variable: ', A, 2x,!& 'at TIME index= ', i4)!!do irec
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 		!dustmo (i, j, irec)
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 		cmask (i, j, jpk)
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 		cotdep (i, j)

Variables

CC CC CC ROUTINE trcini pisces
h CC
************************CC CC 		PURPOSE
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC 		iband
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER 		jpmois
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER jpan CHARACTER
*clname INTEGER 		ipi
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER jpan CHARACTER
*clname INTEGER 		ipj
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER jpan CHARACTER
*clname INTEGER 		ipk
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER jpan CHARACTER
*clname INTEGER 		itime
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER jpan CHARACTER
*clname INTEGER 		numdust
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER jpan CHARACTER
*clname INTEGER 		numbath
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER jpan CHARACTER
*clname INTEGER numdep REAL 		xtoto
CC CC CC ROUTINE trcini pisces
h CC
************************CC CC
mo INTEGER jpan CHARACTER
*clname INTEGER numdep REAL 		expide
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 		ncid
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 		varid
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 		dimid
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 		ierr
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 & 		lstr
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 		lenstr
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 		nf_fread
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 		nrec_dust
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 		rfact
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 = '
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
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 		!ierr
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 		variable
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 		A
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 		file
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 		j = Jstr
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 		i = Istr
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 		zmaskt
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 		sumdepsi
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 		rivpo4input

Function Documentation

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 !dustmo ( i  ,
j  ,
irec   
)

Type Constraints

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 !IF ( bdustfer   ) 

Type Constraints

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 cmask ( i  ,
j  ,
jpk   
)

Type Constraints

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 cotdep ( i  ,
j   
)

Type Constraints

Here is the caller graph for this function:

CC CC CC ROUTINE trcini pisces h CC************************ CC CC mo INTEGER jpan CHARACTER* clname INTEGER numdep REAL denitide REAL jpj REAL dustmp ( GLOBAL_2D_ARRAY  ,
12   
)

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 format ( /  ,
'TRCINI_PISCES-error while reading variable: '  ,
A  ,
2x  ,
!& 'at TIME  index = ',
i4   
)

Type Constraints

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 format ( /  ,
'TRCINI_PISCES-unable to open forcing netCDF '  ,
1x  ,
A   
)

Type Constraints

Here is the caller graph for this function:

CC CC CC ROUTINE trcini pisces h CC************************ CC CC mo INTEGER jpan CHARACTER* clname INTEGER istep ( jpmois   ) 

Type Constraints

CC CC CC ROUTINE trcini pisces h CC************************ CC CC mo INTEGER jpan CHARACTER* clname INTEGER istep0 ( jpan   ) 

Type Constraints

CC CC CC ROUTINE trcini pisces h CC************************ CC CC mo INTEGER jpan CHARACTER* clname INTEGER numdep REAL denitide REAL ndepo ( jpi  ,
jpj   
)

Type Constraints

CC CC CC ROUTINE trcini pisces h CC************************ CC CC mo INTEGER jpan CHARACTER* clname INTEGER numdep REAL denitide REAL river ( jpi  ,
jpj   
)

CC CC CC ROUTINE trcini pisces h CC************************ CC CC mo INTEGER jpan CHARACTER* clname INTEGER numdep REAL denitide REAL jpj REAL zlat ( jpi  ,
jpj   
)

CC CC CC ROUTINE trcini pisces h CC************************ CC CC mo INTEGER jpan CHARACTER* clname INTEGER numdep REAL denitide REAL jpj REAL zlev ( jpk   ) 

CC CC CC ROUTINE trcini pisces h CC************************ CC CC mo INTEGER jpan CHARACTER* clname INTEGER numdep REAL denitide REAL jpj REAL zlon ( jpi  ,
jpj   
)

Variable Documentation

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 !ierr

Initial value:

nf_inq_dimid(ncid,"dust_time",dimid)
!        ierr=nf_inq_dimlen(ncid,dimid,nrec_dust)
!        do irec=1

Definition at line 81 of file trcini.pisces.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 A

Definition at line 97 of file trcini.pisces.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 dimid

Definition at line 55 of file trcini.pisces.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 expide

Initial value:

min(8.,(fsdept(i,j,k)/500.)**(-1.5))
              denitide=-0.9543+0.7662*log(expide)-0.235*log(expide)**2
              cmask(i,j,k)=cmask(i,j,k)*min(1.,exp(denitide)/0.5)
            enddo
          enddo
        enddo
      ELSE
        cmask(:,:,:)=0.
      ENDIF
C
C     Computation of the total atmospheric supply of Si
C     -------------------------------------------------
C
C      sumdepsi=0.
C      DO mo=1

Definition at line 42 of file trcini.pisces.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 file

Definition at line 97 of file trcini.pisces.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 104 of file trcini.pisces.h.

CC CC CC ROUTINE trcini pisces h CC************************ CC CC iband

Definition at line 35 of file trcini.pisces.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 ierr

Definition at line 55 of file trcini.pisces.h.

CC CC CC ROUTINE trcini pisces h CC************************ CC CC mo INTEGER jpan CHARACTER* clname INTEGER ipi

Definition at line 35 of file trcini.pisces.h.

CC CC CC ROUTINE trcini pisces h CC************************ CC CC mo INTEGER jpan CHARACTER* clname INTEGER ipj

Definition at line 35 of file trcini.pisces.h.

CC CC CC ROUTINE trcini pisces h CC************************ CC CC mo INTEGER jpan CHARACTER* clname INTEGER ipk

Definition at line 35 of file trcini.pisces.h.

CC CC CC ROUTINE trcini pisces h CC************************ CC CC mo INTEGER jpan CHARACTER* clname INTEGER itime

Definition at line 41 of file trcini.pisces.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 j = Jstr

Definition at line 103 of file trcini.pisces.h.

CC CC CC ROUTINE trcini pisces h CC************************ CC CC mo INTEGER jpmois

Definition at line 35 of file trcini.pisces.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 lenstr

Definition at line 55 of file trcini.pisces.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 & lstr

Definition at line 55 of file trcini.pisces.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 ncid

Definition at line 55 of file trcini.pisces.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 nf_fread

Definition at line 55 of file trcini.pisces.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 nrec_dust

Definition at line 55 of file trcini.pisces.h.

CC CC CC ROUTINE trcini pisces h CC************************ CC CC mo INTEGER jpan CHARACTER* clname INTEGER numbath

Definition at line 42 of file trcini.pisces.h.

CC CC CC ROUTINE trcini pisces h CC************************ CC CC mo INTEGER jpan CHARACTER* clname INTEGER numdust

Definition at line 42 of file trcini.pisces.h.

CC CC CC ROUTINE trcini pisces h CC************************ CC CC PURPOSE

Definition at line 35 of file trcini.pisces.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 = '

Definition at line 63 of file trcini.pisces.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 rfact

Initial value:

 rdt 
      rfactr = 1./rfact
      WRITE(numout,*) ' Tracer time step='

Definition at line 61 of file trcini.pisces.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

Initial value:

 rfact 
      rfact2r = 1./rfact2
      write(numout,*) ' Biology time step='

Definition at line 64 of file trcini.pisces.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 rivpo4input

Initial value:

rivpo4input+rivinp(i,j)*(e1t(i,j)*e2t(i,j)
C     &                           *fse3t(i,j,1))*tmask(i,j,1)*raass
C          rivalkinput=rivalkinput+cotdep(i,j)*(e1t(i,j)*e2t(i,j)
C     &                           *fse3t(i,j,1))*tmask(i,j,1)*raass
C          nitdepinput=nitdepinput+nitdep(i,j)*(e1t(i,j)*e2t(i,j)
C     &                           *fse3t(i,j,1))*tmask(i,j,1)*raass
C        END DO
C      END DO
C
C    Coastal supply of iron
C    ----------------------
C
      DO k=1

Definition at line 223 of file trcini.pisces.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 sumdepsi

Initial value:

sumdepsi+dustmo(i,j,mo)/(12.*rmoss)*8.8
C     &         *0.075/28.1*e1t(i,j)*e2t(i,j)*tmask(i,j,1)
C          END DO
C        END DO
C      END DO
C
C    COMPUTATION OF THE N/P RELEASE DUE TO COASTAL RIVERS
C    COMPUTATION OF THE Si RELEASE DUE TO COASTAL RIVERS 
C    ---------------------------------------------------
C
      DO j=1

Definition at line 196 of file trcini.pisces.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 variable

Definition at line 97 of file trcini.pisces.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 varid

Definition at line 55 of file trcini.pisces.h.

CC CC CC ROUTINE trcini pisces h CC************************ CC CC mo INTEGER jpan CHARACTER* clname INTEGER numdep REAL xtoto

Definition at line 42 of file trcini.pisces.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 zmaskt

Initial value:

tmask(i+1,j,k)*tmask(i-1,j,k)
c     &                *tmask(i,j+1,k)*tmask(i,j-1,k)
c                if (zmaskt.eq.0) then
c                  cmask(i,j,k)=0.1
c                endif
c            enddo
c          enddo
c        enddo
        do k=1

Definition at line 168 of file trcini.pisces.h.

Generated on Mon Nov 15 15:42:54 2010 for ROMS_r215 by  doxygen 1.5.8