Back to home page

darwin3
 
 

    

File indexing completed on 2024-12-17 18:37:20 UTC

view on githubraw file Latest commit 87dd4f7d on 2024-01-17 18:17:24 UTC
87dd4f7d5f Oliv*0001 #ifdef ALLOW_OASIM
                0002 
                0003 CBOP
                0004 C     !ROUTINE: OASIM_FIELDS.h
                0005 C     !INTERFACE:
                0006 C #include OASIM_FIELDS.h
                0007 C
                0008 C     !DESCRIPTION:
                0009 C Contains fields for the oasim package
                0010 C
                0011 C Requires: SIZE.h, OASIM_SIZE.h
                0012 CEOP
                0013 
                0014 C--   COMMON /OASIM_FIELDS_I/
                0015 C     OASIM_lam :: reference wavelengths of OASIM wavebands [nm]
                0016       INTEGER OASIM_lam(nlt)
                0017       COMMON /OASIM_FIELDS_I/
                0018      &       OASIM_lam
                0019 
                0020 C--   COMMON /OASIM_FIELDS/
                0021 C     OASIM_Edabove :: above-surface direct downwelling irradiance
                0022 C     OASIM_Esabove :: above-surface diffuse downwelling irradiance
                0023 C     OASIM_Edbelow :: below-surface direct downwelling irradiance
                0024 C     OASIM_Esbelow :: below-surface diffuse downwelling irradiance
                0025 C     OASIM_solz    :: above-water solar zenith angle
                0026 C     OASIM_rmud    :: inverse cosine of below-water solar zenith angle
                0027       _RL OASIM_Edabove(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlt)
                0028       _RL OASIM_Esabove(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlt)
                0029       _RL OASIM_Edbelow(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlt)
                0030       _RL OASIM_Esbelow(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlt)
                0031       _RL OASIM_solz   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0032       _RL OASIM_rmud   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0033       _RL OASIM_PARwgt(nlt)
                0034       COMMON /OASIM_FIELDS/
                0035      &       OASIM_Edabove, OASIM_Esabove,
                0036      &       OASIM_Edbelow, OASIM_Esbelow,
                0037      &       OASIM_solz, OASIM_rmud,
                0038      &       OASIM_PARwgt
                0039 
                0040 C--   COMMON /OASIM_FORCING_R/ forcing fields
                0041       COMMON /OASIM_FORCING_R/
                0042      &    aerTau0, aerTau1, taua,
                0043      &    asymp0, asymp1, asymp,
                0044      &    ssalb0, ssalb1, ssalb,
                0045      &    cldcov0, cldcov1, ccov,
                0046      &    cldlwp0, cldlwp1, rlwp,
                0047      &    cldre0, cldre1, cdre,
                0048      &    pres0, pres1, slp,
                0049      &    oawind0, oawind1, wsm,
                0050      &    relhum0, relhum1, rh,
                0051      &    ozone0, ozone1, oz,
                0052      &    wv0, wv1, wv
                0053 
                0054       _RL aerTau0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlt)
                0055       _RL aerTau1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlt)
                0056       _RL taua(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlt)
                0057 
                0058       _RL asymp0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlt)
                0059       _RL asymp1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlt)
                0060       _RL asymp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlt)
                0061 
                0062       _RL ssalb0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlt)
                0063       _RL ssalb1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlt)
                0064       _RL ssalb(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,nlt)
                0065 
                0066       _RL cldcov0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0067       _RL cldcov1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0068       _RL ccov(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0069 
                0070       _RL cldlwp0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0071       _RL cldlwp1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0072       _RL rlwp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0073 
                0074       _RL cldre0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0075       _RL cldre1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0076       _RL cdre(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0077 
                0078       _RL pres0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0079       _RL pres1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0080       _RL slp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0081 
                0082       _RL oawind0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0083       _RL oawind1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0084       _RL wsm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0085 
                0086       _RL relhum0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0087       _RL relhum1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0088       _RL rh(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0089 
                0090       _RL ozone0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0091       _RL ozone1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0092       _RL oz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0093 
                0094       _RL wv0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0095       _RL wv1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0096       _RL wv(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0097 
                0098 C--   COMMON /oasim_localvec/
                0099 C     OASIM_up :: local vertical vector
                0100 C     OASIM_no :: local North vector
                0101 C     OASIM_ea :: local East vector
                0102       _RL OASIM_up(sNx,sNy,nSx,nSy,3)
                0103       _RL OASIM_no(sNx,sNy,nSx,nSy,3)
                0104       _RL OASIM_ea(sNx,sNy,nSx,nSy,3)
                0105       COMMON/oasim_localvec/ OASIM_up, OASIM_no, OASIM_ea
                0106 
                0107 #endif /* ALLOW_OASIM */
[ 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!