| 1 |
c $Header: /u/gcmpack/development/heimbach/ecco_env/pkg/exf/exf_clim_init.F,v 1.1 2001/02/02 19:43:46 heimbach Exp $ |
| 2 |
|
| 3 |
#include "EXF_CPPOPTIONS.h" |
| 4 |
|
| 5 |
|
| 6 |
subroutine exf_clim_init( |
| 7 |
I mythid |
| 8 |
& ) |
| 9 |
|
| 10 |
c ================================================================== |
| 11 |
c SUBROUTINE exf_clim_init |
| 12 |
c ================================================================== |
| 13 |
c |
| 14 |
c o This routine initialises the climatologic forcing |
| 15 |
c |
| 16 |
c started: Ralf.Giering@FastOpt.de 25-Mai-20000 |
| 17 |
c |
| 18 |
c ================================================================== |
| 19 |
c SUBROUTINE exf_clim_init |
| 20 |
c ================================================================== |
| 21 |
|
| 22 |
implicit none |
| 23 |
|
| 24 |
c == global variables == |
| 25 |
|
| 26 |
#include "EEPARAMS.h" |
| 27 |
#include "SIZE.h" |
| 28 |
#include "cal.h" |
| 29 |
#include "exf.h" |
| 30 |
|
| 31 |
#include "exf_clim_param.h" |
| 32 |
|
| 33 |
c == routine arguments == |
| 34 |
|
| 35 |
integer mythid |
| 36 |
|
| 37 |
c == local variables == |
| 38 |
|
| 39 |
integer i |
| 40 |
|
| 41 |
c == end of interface == |
| 42 |
|
| 43 |
c initialize climatology fields |
| 44 |
call exf_init_climtemp( mythid ) |
| 45 |
call exf_init_climsalt( mythid ) |
| 46 |
call exf_init_climsst( mythid ) |
| 47 |
call exf_init_climsss( mythid ) |
| 48 |
|
| 49 |
end |
Parent Directory
| 
Revision Log
| 
Revision Graph