Back to home page

darwin3
 
 

    

File indexing completed on 2024-12-17 18:34:50 UTC

view on githubraw file Latest commit 056678d4 on 2019-07-20 15:49:54 UTC
36748caf88 Jean*0001 CBOP
                0002 C     !ROUTINE: EXF_INTERP_PARAM.h
                0003 C     !INTERFACE:
                0004 C     include "EXF_INTERP_PARAM.h"
                0005 C     !DESCRIPTION:
                0006 C     \bv
                0007 C     *==========================================================*
                0008 C     | EXF_INTERP_PARAM.h
                0009 C     | o Hold parameters used for interpolation of
                0010 C     |   EXF surface forcing fileds
                0011 C     *==========================================================*
                0012 C     *==========================================================*
                0013 C     \ev
                0014 CEOP
                0015 
                0016 #ifdef USE_EXF_INTERPOLATION
                0017 C-- Interpolation parameters (for each input field):
                0018 C   {inputField}_lon0    :: longitude of the 1rst point (South-East corner)
                0019 C   {inputField}_lon_inc :: longitude increment (uniform)
                0020 C   {inputField}_lat0    :: latitude  of the 1rst point (South-East corner)
                0021 C   {inputField}_lat_inc :: latitude  increment (vector, fct of latitude only)
                0022 C   {inputField}_nlon    :: input filed 1rst dim, longitudinal direction
                0023 C   {inputField}_nlat    :: input filed 2nd  dim, latitudinal  direction
                0024 C   {inputField}_interpMethod :: interpolation method: =0 : no interpolation ;
                0025 C                             :: =1,11,21 : bilinear ; =2,12,22 : bicubic ;
                0026 C                             :: =1,2 for tracer ; =11,12 for U ; =21,22 for V.
                0027 C-  Global parameters (for all fields):
                0028 C    exf_output_interp   :: output directly interpolation result (before
                0029 C                           rescaling, rotation or time-interp)
                0030 C-  Internal parameters, for 2 components vector field:
                0031 C    uvInterp_stress     :: interpolate wind-stress u & v components together
                0032 C    uvInterp_wind       :: interpolate wind        u & v components together
                0033 C    uvInterp_climstr    :: interpolate clim stress u & v components together
056678d46d Jean*0034 C-  used to set default input-grid:
                0035 C    inp_lon0            :: default {inputField}_lon0
                0036 C    inp_dLon            :: default {inputField}_lon_inc
                0037 C    inp_lat0            :: default {inputField}_lat0
                0038 C    inp_dLat            :: default {inputField}_lat_inc
                0039 C    inp_gNx             :: default {inputField}_nlon
                0040 C    inp_gNy             :: default {inputField}_nlat
                0041 C----
                0042       _RL inp_lon0, inp_dLon
                0043       _RL inp_lat0, inp_dLat(MAX_LAT_INC)
                0044       INTEGER inp_gNx, inp_gNy
36748caf88 Jean*0045       _RL ustress_lon0, ustress_lon_inc
                0046       _RL ustress_lat0, ustress_lat_inc(MAX_LAT_INC)
                0047       INTEGER ustress_nlon, ustress_nlat, ustress_interpMethod
                0048       _RL vstress_lon0, vstress_lon_inc
                0049       _RL vstress_lat0, vstress_lat_inc(MAX_LAT_INC)
                0050       INTEGER vstress_nlon, vstress_nlat, vstress_interpMethod
                0051       _RL hflux_lon0, hflux_lon_inc
                0052       _RL hflux_lat0, hflux_lat_inc(MAX_LAT_INC)
                0053       INTEGER hflux_nlon, hflux_nlat, hflux_interpMethod
                0054       _RL sflux_lon0, sflux_lon_inc
                0055       _RL sflux_lat0, sflux_lat_inc(MAX_LAT_INC)
                0056       INTEGER sflux_nlon, sflux_nlat, sflux_interpMethod
                0057       _RL swflux_lon0, swflux_lon_inc
                0058       _RL swflux_lat0, swflux_lat_inc(MAX_LAT_INC)
                0059       INTEGER swflux_nlon, swflux_nlat, swflux_interpMethod
                0060       _RL runoff_lon0, runoff_lon_inc
                0061       _RL runoff_lat0, runoff_lat_inc(MAX_LAT_INC)
                0062       INTEGER runoff_nlon, runoff_nlat, runoff_interpMethod
                0063       _RL saltflx_lon0, saltflx_lon_inc
                0064       _RL saltflx_lat0, saltflx_lat_inc(MAX_LAT_INC)
                0065       INTEGER saltflx_nlon, saltflx_nlat, saltflx_interpMethod
                0066       _RL atemp_lon0, atemp_lon_inc
                0067       _RL atemp_lat0, atemp_lat_inc(MAX_LAT_INC)
                0068       INTEGER atemp_nlon, atemp_nlat, atemp_interpMethod
                0069       _RL aqh_lon0, aqh_lon_inc
                0070       _RL aqh_lat0, aqh_lat_inc(MAX_LAT_INC)
                0071       INTEGER aqh_nlon, aqh_nlat, aqh_interpMethod
                0072       _RL hs_lon0, hs_lon_inc
                0073       _RL hs_lat0, hs_lat_inc(MAX_LAT_INC)
                0074       INTEGER hs_nlon, hs_nlat, hs_interpMethod
                0075       _RL hl_lon0, hl_lon_inc
                0076       _RL hl_lat0, hl_lat_inc(MAX_LAT_INC)
                0077       INTEGER hl_nlon, hl_nlat, hl_interpMethod
                0078       _RL evap_lon0, evap_lon_inc
                0079       _RL evap_lat0, evap_lat_inc(MAX_LAT_INC)
                0080       INTEGER evap_nlon, evap_nlat, evap_interpMethod
                0081       _RL precip_lon0, precip_lon_inc
                0082       _RL precip_lat0, precip_lat_inc(MAX_LAT_INC)
                0083       INTEGER precip_nlon, precip_nlat, precip_interpMethod
                0084       _RL snowprecip_lon0, snowprecip_lon_inc
                0085       _RL snowprecip_lat0, snowprecip_lat_inc(MAX_LAT_INC)
                0086       INTEGER snowprecip_nlon, snowprecip_nlat, snowprecip_interpMethod
                0087       _RL uwind_lon0, uwind_lon_inc
                0088       _RL uwind_lat0, uwind_lat_inc(MAX_LAT_INC)
                0089       INTEGER uwind_nlon, uwind_nlat, uwind_interpMethod
                0090       _RL vwind_lon0, vwind_lon_inc
                0091       _RL vwind_lat0, vwind_lat_inc(MAX_LAT_INC)
                0092       INTEGER vwind_nlon, vwind_nlat, vwind_interpMethod
                0093       _RL wspeed_lon0, wspeed_lon_inc
                0094       _RL wspeed_lat0, wspeed_lat_inc(MAX_LAT_INC)
                0095       INTEGER wspeed_nlon, wspeed_nlat, wspeed_interpMethod
                0096       _RL lwflux_lon0, lwflux_lon_inc
                0097       _RL lwflux_lat0, lwflux_lat_inc(MAX_LAT_INC)
                0098       INTEGER lwflux_nlon, lwflux_nlat, lwflux_interpMethod
                0099       _RL swdown_lon0, swdown_lon_inc
                0100       _RL swdown_lat0, swdown_lat_inc(MAX_LAT_INC)
                0101       INTEGER swdown_nlon, swdown_nlat, swdown_interpMethod
                0102       _RL lwdown_lon0, lwdown_lon_inc
                0103       _RL lwdown_lat0, lwdown_lat_inc(MAX_LAT_INC)
                0104       INTEGER lwdown_nlon, lwdown_nlat, lwdown_interpMethod
                0105       _RL apressure_lon0,apressure_lon_inc
                0106       _RL apressure_lat0,apressure_lat_inc(MAX_LAT_INC)
                0107       INTEGER apressure_nlon,apressure_nlat,apressure_interpMethod
                0108       _RL tidePot_lon0,tidePot_lon_inc
                0109       _RL tidePot_lat0,tidePot_lat_inc(MAX_LAT_INC)
                0110       INTEGER tidePot_nlon,tidePot_nlat,tidePot_interpMethod
                0111       _RL areamask_lon0,areamask_lon_inc
                0112       _RL areamask_lat0,areamask_lat_inc(MAX_LAT_INC)
                0113       INTEGER areamask_nlon,areamask_nlat,areamask_interpMethod
                0114 
                0115       LOGICAL exf_output_interp
                0116       LOGICAL uvInterp_stress
                0117       LOGICAL uvInterp_wind
                0118       LOGICAL uvInterp_climstr
                0119       COMMON /EXF_INTERPOLATION_L/
                0120      & exf_output_interp,
                0121      & uvInterp_stress, uvInterp_wind, uvInterp_climstr
                0122 
                0123       COMMON /EXF_INTERPOLATION_RL/
056678d46d Jean*0124      & inp_lon0, inp_dLon, inp_lat0, inp_dLat,
36748caf88 Jean*0125      & ustress_lon0, ustress_lon_inc,
                0126      & ustress_lat0, ustress_lat_inc,
                0127      & vstress_lon0, vstress_lon_inc,
                0128      & vstress_lat0, vstress_lat_inc,
                0129      & hflux_lon0, hflux_lon_inc,
                0130      & hflux_lat0, hflux_lat_inc,
                0131      & sflux_lon0, sflux_lon_inc,
                0132      & sflux_lat0, sflux_lat_inc,
                0133      & swflux_lon0, swflux_lon_inc,
                0134      & swflux_lat0, swflux_lat_inc,
                0135      & runoff_lon0, runoff_lon_inc,
                0136      & runoff_lat0, runoff_lat_inc,
                0137      & saltflx_lon0, saltflx_lon_inc,
                0138      & saltflx_lat0, saltflx_lat_inc,
                0139      & atemp_lon0, atemp_lon_inc,
                0140      & atemp_lat0, atemp_lat_inc,
                0141      & aqh_lon0, aqh_lon_inc,
                0142      & aqh_lat0, aqh_lat_inc,
                0143      & hs_lon0, hs_lon_inc,
                0144      & hs_lat0, hs_lat_inc,
                0145      & hl_lon0, hl_lon_inc,
                0146      & hl_lat0, hl_lat_inc,
                0147      & evap_lon0, evap_lon_inc,
                0148      & evap_lat0, evap_lat_inc,
                0149      & precip_lon0, precip_lon_inc,
                0150      & precip_lat0, precip_lat_inc,
                0151      & snowprecip_lon0, snowprecip_lon_inc,
                0152      & snowprecip_lat0, snowprecip_lat_inc,
                0153      & uwind_lon0, uwind_lon_inc,
                0154      & uwind_lat0, uwind_lat_inc,
                0155      & vwind_lon0, vwind_lon_inc,
                0156      & vwind_lat0, vwind_lat_inc,
                0157      & wspeed_lon0, wspeed_lon_inc,
                0158      & wspeed_lat0, wspeed_lat_inc,
                0159      & lwflux_lon0, lwflux_lon_inc,
                0160      & lwflux_lat0, lwflux_lat_inc,
                0161      & swdown_lon0, swdown_lon_inc,
                0162      & swdown_lat0, swdown_lat_inc,
                0163      & lwdown_lon0, lwdown_lon_inc,
                0164      & lwdown_lat0, lwdown_lat_inc,
                0165      & apressure_lon0, apressure_lon_inc,
                0166      & apressure_lat0, apressure_lat_inc,
                0167      & tidePot_lon0, tidePot_lon_inc,
                0168      & tidePot_lat0, tidePot_lat_inc,
                0169      & areamask_lon0, areamask_lon_inc,
                0170      & areamask_lat0, areamask_lat_inc
                0171 
                0172       COMMON /EXF_INTERPOLATION_I/
056678d46d Jean*0173      & inp_gNx, inp_gNy,
36748caf88 Jean*0174      & ustress_nlon, ustress_nlat, ustress_interpMethod,
                0175      & vstress_nlon, vstress_nlat, vstress_interpMethod,
                0176      & hflux_nlon, hflux_nlat, hflux_interpMethod,
                0177      & sflux_nlon, sflux_nlat, sflux_interpMethod,
                0178      & swflux_nlon, swflux_nlat, swflux_interpMethod,
                0179      & runoff_nlon, runoff_nlat, runoff_interpMethod,
                0180      & saltflx_nlon, saltflx_nlat, saltflx_interpMethod,
                0181      & atemp_nlon, atemp_nlat, atemp_interpMethod,
                0182      & aqh_nlon, aqh_nlat, aqh_interpMethod,
                0183      & hs_nlon, hs_nlat, hs_interpMethod,
                0184      & hl_nlon, hl_nlat, hl_interpMethod,
                0185      & evap_nlon, evap_nlat, evap_interpMethod,
                0186      & precip_nlon, precip_nlat, precip_interpMethod,
                0187      & snowprecip_nlon, snowprecip_nlat, snowprecip_interpMethod,
                0188      & uwind_nlon, uwind_nlat, uwind_interpMethod,
                0189      & vwind_nlon, vwind_nlat, vwind_interpMethod,
                0190      & wspeed_nlon, wspeed_nlat, wspeed_interpMethod,
                0191      & lwflux_nlon, lwflux_nlat, lwflux_interpMethod,
                0192      & swdown_nlon, swdown_nlat, swdown_interpMethod,
                0193      & lwdown_nlon, lwdown_nlat, lwdown_interpMethod,
                0194      & apressure_nlon, apressure_nlat, apressure_interpMethod,
                0195      & tidePot_nlon, tidePot_nlat, tidePot_interpMethod,
                0196      & areamask_nlon, areamask_nlat, areamask_interpMethod
                0197 
                0198       _RL climsst_lon0, climsst_lon_inc
                0199       _RL climsst_lat0, climsst_lat_inc(MAX_LAT_INC)
                0200       INTEGER climsst_nlon, climsst_nlat, climsst_interpMethod
                0201       _RL climsss_lon0, climsss_lon_inc
                0202       _RL climsss_lat0, climsss_lat_inc(MAX_LAT_INC)
                0203       INTEGER climsss_nlon, climsss_nlat, climsss_interpMethod
                0204       _RL climustr_lon0, climustr_lon_inc
                0205       _RL climustr_lat0, climustr_lat_inc(MAX_LAT_INC)
                0206       INTEGER climustr_nlon, climustr_nlat, climustr_interpMethod
                0207       _RL climvstr_lon0, climvstr_lon_inc
                0208       _RL climvstr_lat0, climvstr_lat_inc(MAX_LAT_INC)
                0209       INTEGER climvstr_nlon, climvstr_nlat, climvstr_interpMethod
                0210 
                0211       COMMON /EXF_CLIM_INTERPOLATION/
                0212      & climsst_lon0, climsst_lon_inc,
                0213      & climsst_lat0, climsst_lat_inc,
                0214      & climsss_lon0, climsss_lon_inc,
                0215      & climsss_lat0, climsss_lat_inc,
                0216      & climustr_lon0, climustr_lon_inc,
                0217      & climustr_lat0, climustr_lat_inc,
                0218      & climvstr_lon0, climvstr_lon_inc,
                0219      & climvstr_lat0, climvstr_lat_inc,
                0220      & climsst_nlon, climsst_nlat, climsst_interpMethod,
                0221      & climsss_nlon, climsss_nlat, climsss_interpMethod,
                0222      & climustr_nlon, climustr_nlat, climustr_interpMethod,
                0223      & climvstr_nlon, climvstr_nlat, climvstr_interpMethod
                0224 
                0225 #endif /* USE_EXF_INTERPOLATION */
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated from https://github.com/darwinproject/darwin3 by the 2.3.7-MITgcm-0.1 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!