Back to home page

MITgcm
 
 

    

File indexing completed on 2018-03-02 18:42:49 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
7c7521a1da Jean*0001 #ifdef  ALLOW_OFFLINE
a35ff864fe Jean*0002 C     !ROUTINE: OFFLINE.h
                0003 C -------------------------------
                0004 C   OFFLINE.h
b4d5e534c1 Step*0005 C  variable for forcing offline tracer
a35ff864fe Jean*0006 C -------------------------------
b4d5e534c1 Step*0007 
a35ff864fe Jean*0008 C-- Offline parameters:
287934f0f1 Patr*0009 
a35ff864fe Jean*0010 C-  Forcing files
                0011       COMMON /OFFLINE_PARAMS_C/
b4d5e534c1 Step*0012      &       UvelFile, VvelFile, WvelFile, ThetFile, Saltfile,
a35ff864fe Jean*0013      &       ConvFile, KPP_DiffSFile, KPP_ghatKFile,
                0014      &       GMwxFile, GMwyFile, GMwzFile,
                0015      &       HFluxFile, SFluxFile, IceFile
b4d5e534c1 Step*0016       CHARACTER*(MAX_LEN_FNAM) UvelFile
                0017       CHARACTER*(MAX_LEN_FNAM) VvelFile
                0018       CHARACTER*(MAX_LEN_FNAM) WvelFile
                0019       CHARACTER*(MAX_LEN_FNAM) ThetFile
                0020       CHARACTER*(MAX_LEN_FNAM) SaltFile
a35ff864fe Jean*0021       CHARACTER*(MAX_LEN_FNAM) ConvFile
                0022       CHARACTER*(MAX_LEN_FNAM) KPP_DiffSFile
                0023       CHARACTER*(MAX_LEN_FNAM) KPP_ghatKFile
b4d5e534c1 Step*0024       CHARACTER*(MAX_LEN_FNAM) GMwxFile
                0025       CHARACTER*(MAX_LEN_FNAM) GMwyFile
                0026       CHARACTER*(MAX_LEN_FNAM) GMwzFile
76fc45bcd6 Step*0027       CHARACTER*(MAX_LEN_FNAM) HFluxFile
                0028       CHARACTER*(MAX_LEN_FNAM) SFluxFile
a35ff864fe Jean*0029       CHARACTER*(MAX_LEN_FNAM) IceFile
287934f0f1 Patr*0030 
a35ff864fe Jean*0031       COMMON /OFFLINE_PARAMS_I/
c41e22bc1d Jean*0032      &       offlineLoadPrec,
bdc15dcb10 Jean*0033      &       offlineIter0
c41e22bc1d Jean*0034       INTEGER offlineLoadPrec
b4d5e534c1 Step*0035       INTEGER offlineIter0
287934f0f1 Patr*0036 
a35ff864fe Jean*0037       COMMON /OFFLINE_PARAMS_R/
bdc15dcb10 Jean*0038      &       deltaToffline, offlineTimeOffset,
a35ff864fe Jean*0039      &       offlineForcingPeriod, offlineForcingCycle
                0040       _RL deltaToffline
bdc15dcb10 Jean*0041       _RL offlineTimeOffset
a35ff864fe Jean*0042       _RL offlineForcingPeriod
                0043       _RL offlineForcingCycle
                0044 
                0045 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0046 C-- Offline variables:
                0047 
                0048 C     offlineLdRec :: time-record currently loaded (in temp arrays *[1])
                0049       COMMON /OFFLINE_VARS_I/
                0050      &       offlineLdRec
                0051       INTEGER offlineLdRec(nSx,nSy)
                0052 
                0053       COMMON /OFFLINE_VARS_R/
                0054 c    &       ConvectCount, ICEM,
                0055      &       offline_Wght
                0056 c     _RL ICEM(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0057 c     _RS ConvectCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0058       _RL offline_Wght(2,nSx,nSy)
                0059 
                0060 C     Forcing fields:
287934f0f1 Patr*0061 C     uvel[01]  :: Temp. for u
                0062 C     vvel[01]  :: Temp. for v
                0063 C     wvel[01]  :: Temp. for w
                0064 C     conv[01]  :: Temp for Convection Count
                0065 C     [01]      :: End points for interpolation
                0066 C     Above use static heap storage to allow exchange.
                0067 C     aWght, bWght :: Interpolation weights
                0068       COMMON /OFFLINE_FFIELDS_R/
a35ff864fe Jean*0069      &                 uvel0, uvel1, vvel0, vvel1, wvel0, wvel1,
                0070      &                 tave0, tave1, save0, save1,
                0071      &                 gmkx0, gmkx1, gmky0, gmky1, gmkz0, gmkz1,
                0072      &                 conv0, conv1, kdfs0, kdfs1, kght0, kght1,
                0073      &                 sflx0, sflx1
                0074 c    &               , hflx0, hflx1, icem0, icem1
287934f0f1 Patr*0075       _RS  uvel0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0076       _RS  uvel1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0077       _RS  vvel0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0078       _RS  vvel1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0079       _RS  wvel0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0080       _RS  wvel1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0081       _RS  tave0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0082       _RS  tave1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0083       _RS  save0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0084       _RS  save1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0085       _RS  gmkx0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0086       _RS  gmkx1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0087       _RS  gmky0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0088       _RS  gmky1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0089       _RS  gmkz0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0090       _RS  gmkz1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
a35ff864fe Jean*0091       _RS  conv0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0092       _RS  conv1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
287934f0f1 Patr*0093       _RS  kdfs0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0094       _RS  kdfs1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0095       _RS  kght0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0096       _RS  kght1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
a35ff864fe Jean*0097       _RS  sflx0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0098       _RS  sflx1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0099 c     _RS  hflx0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0100 c     _RS  hflx1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0101 c     _RS  icem0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0102 c     _RS  icem1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
b4d5e534c1 Step*0103 
                0104 #endif /* ALLOW_OFFLINE*/
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

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

The LXR team
Valid CSS 2.1! Valid HTML 4.01!