/[MITgcm]/MITgcm/pkg/exf/exf_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_readparms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by heimbach, Mon May 14 22:08:41 2001 UTC revision 1.2 by heimbach, Thu Feb 7 20:00:09 2002 UTC
# Line 14  c Line 14  c
14  c     o This routine initialises the package that calculates external  c     o This routine initialises the package that calculates external
15  c       forcing fields for a given timestep of the MITgcmUV. Parameters  c       forcing fields for a given timestep of the MITgcmUV. Parameters
16  c       for this package are set in "data.externalforcing". Some additional  c       for this package are set in "data.externalforcing". Some additional
17  c       precompiler switches have to be specified in "EXF_CPPOPTIONS.h" .  c       precompiler switches have to be specified in "EXF_CPPOPTIONS.h".
18  c  c
19  c     started: Christian Eckert eckert@mit.edu  30-Jun-1999  c     started: Christian Eckert eckert@mit.edu  30-Jun-1999
20  c  c
21  c     changed: Christian Eckert eckert@mit.edu  11-Jan-2000  c     changed: Christian Eckert eckert@mit.edu  11-Jan-2000
22  c              - Restructured the code in order to create a package  c              - Restructured the code in order to create a package
23  c                for the MITgcmUV.  c                for the MITgcmUV.
 c  
24  c              Christian Eckert eckert@mit.edu  12-Feb-2000  c              Christian Eckert eckert@mit.edu  12-Feb-2000
25  c              - Changed Routine names (package prefix: exf_)  c              - Changed Routine names (package prefix: exf_)
26  c  c     changed: Patrick Heimbach, heimbach@mit.edu  04-May-2000
 c              Patrick Heimbach, heimbach@mit.edu  04-May-2000  
27  c              - changed the handling of precip and sflux with respect  c              - changed the handling of precip and sflux with respect
28  c                to CPP options ALLOW_BULKFORMULAE and ALLOW_ATM_TEMP  c                to CPP options ALLOW_BULKFORMULAE and ALLOW_ATM_TEMP
 c  
29  c     changed: Ralf.Giering@FastOpt.de 25-Mai-20000  c     changed: Ralf.Giering@FastOpt.de 25-Mai-20000
30  c              - moved relaxation and climatology stuff to extra routines  c              - moved relaxation and climatology to extra routines
 c  
31  c              Patrick Heimbach, heimbach@mit.edu  04-May-2000  c              Patrick Heimbach, heimbach@mit.edu  04-May-2000
32  c              - added obcs parameters  c              - added obcs parameters
33    c     changed: Virginie Thierry, vthierry@ucsd.edu 04-June-2001
34    c              - added new obcs parameters (for each boundaries)
35  c  c
36  c     ==================================================================  c     ==================================================================
37  c     SUBROUTINE exf_readparms  c     SUBROUTINE exf_readparms
# Line 49  c     == global variables == Line 47  c     == global variables ==
47  #include "exf.h"  #include "exf.h"
48  #include "exf_param.h"  #include "exf_param.h"
49  #include "exf_constants.h"  #include "exf_constants.h"
50    #ifdef ALLOW_OBCS
51    # include "OBCS_OPTIONS.h"
52    #endif
53    
54  c     == routine arguments ==  c     == routine arguments ==
55    
# Line 78  c     Surface flux data. Line 79  c     Surface flux data.
79       &    vwindstartdate1,    vwindstartdate2,   vwindperiod,       &    vwindstartdate1,    vwindstartdate2,   vwindperiod,
80       &   swfluxstartdate1,   swfluxstartdate2,  swfluxperiod,       &   swfluxstartdate1,   swfluxstartdate2,  swfluxperiod,
81       &   lwfluxstartdate1,   lwfluxstartdate2,  lwfluxperiod,       &   lwfluxstartdate1,   lwfluxstartdate2,  lwfluxperiod,
82       &     obcsstartdate1,     obcsstartdate2,    obcsperiod,       &    obcsNstartdate1,    obcsNstartdate2,   obcsNperiod,
83         &    obcsSstartdate1,    obcsSstartdate2,   obcsSperiod,
84         &    obcsEstartdate1,    obcsEstartdate2,   obcsEperiod,
85         &    obcsWstartdate1,    obcsWstartdate2,   obcsWperiod,
86       &          hfluxfile,          atempfile,       aqhfile,       &          hfluxfile,          atempfile,       aqhfile,
87       &         precipfile,          sfluxfile,   ustressfile,       &         precipfile,          sfluxfile,   ustressfile,
88       &        vstressfile,          uwindfile,     vwindfile,       &        vstressfile,          uwindfile,     vwindfile,
89       &         swfluxfile,         lwfluxfile,      obcsfile,       &         swfluxfile,         lwfluxfile,
90       &          exf_iprec,         exf_yftype       &          exf_iprec,         exf_yftype
91    
92        _BEGIN_MASTER(mythid)        _BEGIN_MASTER(mythid)
# Line 134  c     Calendar data. Line 138  c     Calendar data.
138        lwfluxstartdate2   = 0        lwfluxstartdate2   = 0
139        lwfluxperiod       = 0.0 _d 0        lwfluxperiod       = 0.0 _d 0
140    
141        obcsstartdate1     = 0        obcsNstartdate1    = 0
142        obcsstartdate2     = 0        obcsNstartdate2    = 0
143        obcsperiod         = 0.0 _d 0        obcsNperiod        = 0.0 _d 0
144    
145          obcsSstartdate1    = 0
146          obcsSstartdate2    = 0
147          obcsSperiod        = 0.0 _d 0
148    
149          obcsEstartdate1    = 0
150          obcsEstartdate2    = 0
151          obcsEperiod        = 0.0 _d 0
152    
153          obcsWstartdate1    = 0
154          obcsWstartdate2    = 0
155          obcsWperiod        = 0.0 _d 0
156    
157  c     Data files.  c     Data files.
158        hfluxfile          = ' '        hfluxfile          = ' '
# Line 150  c     Data files. Line 166  c     Data files.
166        vwindfile          = ' '        vwindfile          = ' '
167        swfluxfile         = ' '        swfluxfile         = ' '
168        lwfluxfile         = ' '        lwfluxfile         = ' '
       obcsfile           = ' '  
169    
170  c     Initialise the date arrays.  c     Initialise the date arrays.
171        do i = 1,4        do i = 1,4
# Line 165  c     Initialise the date arrays. Line 180  c     Initialise the date arrays.
180           vwindstartdate(i)    = 0           vwindstartdate(i)    = 0
181           swfluxstartdate(i)   = 0           swfluxstartdate(i)   = 0
182           lwfluxstartdate(i)   = 0           lwfluxstartdate(i)   = 0
183           obcsstartdate(i)     = 0           obcsNstartdate(i)    = 0
184             obcsSstartdate(i)    = 0
185             obcsEstartdate(i)    = 0
186             obcsWstartdate(i)    = 0
187        enddo        enddo
188    
189  c     Initialise file type and field precision  c     Initialise file type and field precision
# Line 260  c     check for consistency Line 278  c     check for consistency
278  #endif  #endif
279    
280  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
281        call cal_FullDate(   obcsstartdate1,  obcsstartdate2,  #ifdef ALLOW_OBCS_NORTH
282       &                     obcsstartdate,           mythid )        call cal_FullDate(  obcsNstartdate1,  obcsNstartdate2,
283         &                    obcsNstartdate,           mythid )
284    #endif
285    #ifdef ALLOW_OBCS_SOUTH
286          call cal_FullDate(  obcsSstartdate1,  obcsSstartdate2,
287         &                    obcsSstartdate,           mythid )
288    #endif
289    #ifdef ALLOW_OBCS_EAST
290          call cal_FullDate(  obcsEstartdate1,  obcsEstartdate2,
291         &                    obcsEstartdate,           mythid )
292    #endif
293    #ifdef ALLOW_OBCS_WEST
294          call cal_FullDate(  obcsWstartdate1,  obcsWstartdate2,
295         &                    obcsWstartdate,           mythid )
296    #endif
297  #endif  #endif
298    
299        _END_MASTER( mythid )        _END_MASTER( mythid )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22