Page 1           Source Listing                  OZON2D
2025-03-12 18:21                                 /tmp/ifort9e0SPm.i

      1 # 1 "OZON2D.F"
      2                              SUBROUTINE OZON2D
      3      1           (LK,POZN,XLAT,RSIN1,RCOS1,RCOS2,QO3)
      4 C***********************************************************************
      5 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
      6 C                .      .    .
      7 C SUBPROGRAM:    OZON2D      COMPUTE OZONE IN MODEL COLUMNS
      8 C   PRGRMMR: KATZ/CAMPANA    ORG: W/NP22     DATE: ??-??-??
      9 C
     10 C ABSTRACT:
     11 C     OZON2D COMPUTES THE OZONE MIXING RATIO IN EACH GRID BOX
     12 C     OF COLUMNS WITHIN THE MODEL DOMAIN
     13 C
     14 C PROGRAM HISTORY LOG:
     15 C   ??-??-??  KATZ/KC    - ORIGINATOR
     16 C   96-07-26  BLACK      - MODIFIED FOR ETA MODEL
     17 C   98-10-28  BLACK      - MODIFIED FOR DISTRIBUTED MEMORY
     18 C
     19 C USAGE: CALL OZON2D FROM SUBROUTINE RADTN
     20 C   INPUT ARGUMENT LIST:
     21 C     LK:    NUMBER OF LAYERS IN COLUMNS
     22 C     XLAT:  GEODETIC LATITUDE OF GRID COLUMNS IN DEGREES
     23 C     RSIN1: INFORMATION RELATING TO POSITION OF EARTH IN ITS ORBIT
     24 C     RCOS1: INFORMATION RELATING TO POSITION OF EARTH IN ITS ORBIT
     25 C     RCOS2: INFORMATION RELATING TO POSITION OF EARTH IN ITS ORBIT
     26 C
     27 C   OUTPUT ARGUMENT LIST:
     28 C     QO3:  OZONE MIXING RATIO AT MIDLAYERS OF MODEL COLUMNS
     29 C
     30 C   OUTPUT FILES:
     31 C     NONE
     32 C
     33 C   SUBPROGRAMS CALLED:
     34 C
     35 C     UNIQUE:
     36 C        NONE
     37 C
     38 C     LIBRARY:
     39 C        NONE
     40 C
     41 C   COMMON BLOCKS: SEASO3
     42 C
     43 C ATTRIBUTES:
     44 C   LANGUAGE: FORTRAN 90
     45 C   MACHINE : IBM SP
     46 C$$$
     47 C----------------------------------------------------------------------
     48                            P A R A M E T E R
     49      1 (NL=81,NLP1=NL+1,LNGTH=37*NL,RTD=57.2957795)
     50 C----------------------------------------------------------------------
     51       INCLUDE "parmeta"
     74       INCLUDE "mpp.h"
    133       INCLUDE "SEASO3.comm"
    134 # 1 "./sp.h" 1 
    135 # 4
    136 
    137 # 54 "OZON2D.F" 2 

Page 2           Source Listing                  OZON2D
2025-03-12 18:21                                 OZON2D.F

    138 C----------------------------------------------------------------------
    147                            D I M E N S I O N
    148      1 QO3(IDIM1:IDIM2,LK),POZN(IDIM1:IDIM2,LK),XLAT(IDIM1:IDIM2)
    149      2,QO3O3(IDIM1:IDIM2,NL),JJROW(IDIM1:IDIM2),TTHAN(IDIM1:IDIM2)
    150 C----------------------------------------------------------------------
    151       DO I=MYIS,MYIE
    152         TH2=0.2*XLAT(I)
    153         JJROW(I)=19.001-TH2
    154         TTHAN(I)=(19-JJROW(I))-TH2
    155       ENDDO
    156 C
    157 C***  SEASONAL AND SPATIAL INTERPOLATION DONE BELOW.
    158 C
    159       DO K=1,NL
    160       DO I=MYIS,MYIE
    161         DO3V=XDUO3N(JJROW(I),K)+RSIN1*XDO3N2(JJROW(I),K)
    162      1             +RCOS1*XDO3N3(JJROW(I),K)
    163      2             +RCOS2*XDO3N4(JJROW(I),K)
    164         DO3VP=XDUO3N(JJROW(I)+1,K)+RSIN1*XDO3N2(JJROW(I)+1,K)
    165      1              +RCOS1*XDO3N3(JJROW(I)+1,K)
    166      2              +RCOS2*XDO3N4(JJROW(I)+1,K)
    167 C
    168 C***  NOW LATITUDINAL INTERPOLATION
    169 C***  AND CONVERT O3 INTO MASS MIXING RATIO (ORIG DATA MPY BY 1.E4)
    170 C
    171         QO3O3(I,K)=1.E-4*(DO3V+TTHAN(I)*(DO3VP-DO3V))
    172       ENDDO
    173       ENDDO
    174 C***
    175 C***  VERTICAL INTERPOLATION FOR EACH GRIDPOINT (LINEAR IN LN P)
    176 C***
    177       NUMITR=0
    178       ILOG=NL
    179    20 CONTINUE
    180       ILOG=(ILOG+1)/2
    181         IF(ILOG.EQ.1)GO TO 25
    182         NUMITR=NUMITR+1
    183         GO TO 20
    184    25 CONTINUE
    185 C
    186       DO 60 K=1,LK
    187 C
    188       NHALF=(NL+1)/2
    189       DO I=MYIS,MYIE
    190         JJROW(I)=NHALF
    191       ENDDO
    192 C
    193       DO 40 IT=1,NUMITR
    194       NHALF=(NHALF+1)/2
    195       DO I=MYIS,MYIE
    196         IF(POZN(I,K).LT.PRGFDL(JJROW(I)-1))THEN
    197           JJROW(I)=JJROW(I)-NHALF
    198         ELSEIF(POZN(I,K).GE.PRGFDL(JJROW(I)))THEN
    199           JJROW(I)=JJROW(I)+NHALF
    200         ENDIF
    201         JJROW(I)=MIN(JJROW(I),NL)
    202         JJROW(I)=MAX(JJROW(I),2)

Page 3           Source Listing                  OZON2D
2025-03-12 18:21                                 OZON2D.F

    203       ENDDO
    204    40 CONTINUE
    205 C
    206       DO 50 I=MYIS,MYIE
    207       IF(POZN(I,K).LT.PRGFDL(1))THEN
    208         QO3(I,K)=QO3O3(I,1)
    209       ELSE IF(POZN(I,K).GT.PRGFDL(NL))THEN
    210         QO3(I,K)=QO3O3(I,NL)
    211       ELSE
    212         APLO=ALOG(PRGFDL(JJROW(I)-1))
    213         APHI=ALOG(PRGFDL(JJROW(I)))
    214         QO3(I,K)=QO3O3(I,JJROW(I))+(ALOG(POZN(I,K))-APHI)/
    215      1             (APLO-APHI)*
    216      2             (QO3O3(I,JJROW(I)-1)-QO3O3(I,JJROW(I)))
    217       ENDIF
    218    50 CONTINUE
    219 C
    220    60 CONTINUE
    221 C----------------------------------------------------------------------
    222       RETURN
    223       END


ENTRY POINTS

  Name               
                     
 ozon2d_             

Page 4           Source Listing                  OZON2D
2025-03-12 18:21 Symbol Table                    OZON2D.F



SYMBOL CROSS REFERENCE

 Name                       Object Declared Type            Bytes Dimen Elements Attributes       References                        
                                                                                                                                    
 20                         Label  179                                                            183                               
 25                         Label  184                                                            181                               
 40                         Label  204                                                            193                               
 50                         Label  218                                                            206                               
 60                         Label  220                                                            186                               
 ALOG                       Func   212                                  scalar                    212,213,214                       
 APHI                       Local  213      R(4)            4           scalar                    213,214,215                       
 APLO                       Local  212      R(4)            4           scalar                    212,215                           
 DO3V                       Local  161      R(4)            4           scalar                    161,171                           
 DO3VP                      Local  164      R(4)            4           scalar                    164,171                           
 GLB_TABLE                  Common 111                                  128      SAVE                                               
 I                          Local  151      I(4)            4           scalar                    151,152,153,154,160,161,162,163,16
                                                                                                  4,165,166,171,189,190,195,196,197,
                                                                                                  198,199,201,202,206,207,208,209,21
                                                                                                  0,212,213,214,216                 
 IDIM1                      Param  70       I(4)            4           scalar                    148,149                           
 IDIM2                      Param  70       I(4)            4           scalar                    148,149                           
 IGSTL                      Param  65       I(4)            4           scalar                    70                                
 IGSTR                      Param  65       I(4)            4           scalar                    70                                
 ILOG                       Local  178      I(4)            4           scalar                    178,180,181                       
 IM                         Param  54       I(4)            4           scalar                    67,70,117,118,119,120,121,125,126,
                                                                                                  131                               
 INPES                      Param  62       I(4)            4           scalar                    67,70,101,102,103,112,113         
 IT                         Local  193      I(4)            4           scalar                    193                               
 ITAIL                      Param  67       I(4)            4           scalar                                                      
 JDIM1                      Param  71       I(4)            4           scalar                                                      
 JDIM2                      Param  71       I(4)            4           scalar                                                      
 JGSTL                      Param  66       I(4)            4           scalar                    71                                
 JGSTR                      Param  66       I(4)            4           scalar                    71                                
 JJROW                      Local  149      I(4)            4     1     45                        153,154,161,162,163,164,165,166,19
                                                                                                  0,196,197,198,199,201,202,212,213,
                                                                                                  214,216                           
 JM                         Param  54       I(4)            4           scalar                    68,71,117,118,119,120,121,125,126,
                                                                                                  131                               
 JNPES                      Param  62       I(4)            4           scalar                    68,71,101,102,103,112,113         
 JTAIL                      Param  68       I(4)            4           scalar                                                      
 K                          Local  159      I(4)            4           scalar                    159,161,162,163,164,165,166,171,18
                                                                                                  6,196,198,207,208,209,210,214     
 LK                         Dummy  3        I(4)            4           scalar   ARG,INOUT        148,186                           
 LM                         Param  54       I(4)            4           scalar                    126                               
 LNGTH                      Param  49       I(4)            4           scalar                                                      
 LSM                        Param  54       I(4)            4           scalar                                                      
 MAPPINGS                   Common 130                                  5024     SAVE                                               
 MAX                        Func   202                                  scalar                    202                               
 MIN                        Func   201                                  scalar                    201                               
 MPPCOM                     Common 75                                   1464     SAVE                                               
 NHALF                      Local  188      I(4)            4           scalar                    188,190,194,197,199               
 NL                         Param  49       I(4)            4           scalar                    49,142,144,149,159,178,188,201,209
                                                                                                  ,210                              
 NLP1                       Param  49       I(4)            4           scalar                                                      
 NUMITR                     Local  177      I(4)            4           scalar                    177,182,193                       

Page 5           Source Listing                  OZON2D
2025-03-12 18:21 Symbol Table                    OZON2D.F

 Name                       Object Declared Type            Bytes Dimen Elements Attributes       References                        
                                                                                                                                    
 OZON2D                     Subr   2                                                                                                
 POZN                       Dummy  3        R(4)            4     2     0        ARG,INOUT        196,198,207,209,214               
 QO3                        Dummy  3        R(4)            4     2     0        ARG,INOUT        208,210,214                       
 QO3O3                      Local  149      R(4)            4     2     3645                      171,208,210,214,216               
 RCOS1                      Dummy  3        R(4)            4           scalar   ARG,INOUT        162,165                           
 RCOS2                      Dummy  3        R(4)            4           scalar   ARG,INOUT        163,166                           
 RSIN1                      Dummy  3        R(4)            4           scalar   ARG,INOUT        161,164                           
 RTD                        Param  49       R(4)            4           scalar                                                      
 SEASO3                     Common 140                                  48276    SAVE                                               
 TEMPCOM                    Common 116                                  6603768  SAVE                                               
 TH2                        Local  152      R(4)            4           scalar                    152,153,154                       
 TOPO                       Common 124                                  17478548 SAVE                                               
 TTHAN                      Local  149      R(4)            4     1     45                        154,171                           
 XLAT                       Dummy  3        R(4)            4     1     45       ARG,INOUT        152                               


TYPE COMPONENTS/COMMON VARIABLES

 Name                       Type            Bytes Offset   Dimen Elements Attributes       References                         
                                                                                                                              
 G2LI                       I(4)            4     0        1     239      COM                                                 
 G2LJ                       I(4)            4     1912     1     389      COM                                                 
 HTMG                       R(4)            4     743768   3     4183695  COM                                                 
 IBROW                      I(4)            4     404            scalar   COM                                                 
 ICHUNKTAB                  I(4)            4     620      1     8        COM                                                 
 IE_GLB_TABLE               I(4)            4     32       1     8        COM                                                 
 IE_LOC_TABLE               I(4)            4     556      1     8        COM                                                 
 ILCOL                      I(4)            4     396            scalar   COM                                                 
 ILPAD1                     I(4)            4     412            scalar   COM                                                 
 ILPAD2                     I(4)            4     416            scalar   COM                                                 
 ILPAD3                     I(4)            4     420            scalar   COM                                                 
 ILPAD4                     I(4)            4     424            scalar   COM                                                 
 ILPAD5                     I(4)            4     428            scalar   COM                                                 
 INUMQ                      I(4)            4     1064     1     100      COM                                                 
 IQUILT_GROUP               I(4)            4     1060           scalar   COM                                                 
 IRCOL                      I(4)            4     400            scalar   COM                                                 
 IRPAD1                     I(4)            4     432            scalar   COM                                                 
 IRPAD2                     I(4)            4     436            scalar   COM                                                 
 IRPAD3                     I(4)            4     440            scalar   COM                                                 
 IRPAD4                     I(4)            4     444            scalar   COM                                                 
 IRPAD5                     I(4)            4     448            scalar   COM                                                 
 IS_GLB_TABLE               I(4)            4     0        1     8        COM                                                 
 IS_LOC_TABLE               I(4)            4     492      1     8        COM                                                 
 ITEMP                      I(4)            4     5870016  2     91719    COM                                                 
 ITEMP2                     I(4)            4     6236892  2     91719    COM                                                 
 ITROW                      I(4)            4     408            scalar   COM                                                 
 JBPAD1                     I(4)            4     452            scalar   COM                                                 
 JBPAD2                     I(4)            4     456            scalar   COM                                                 
 JBPAD3                     I(4)            4     460            scalar   COM                                                 
 JBPAD4                     I(4)            4     464            scalar   COM                                                 
 JBPAD5                     I(4)            4     468            scalar   COM                                                 
 JE_GLB_TABLE               I(4)            4     96       1     8        COM                                                 
 JE_LOC_TABLE               I(4)            4     588      1     8        COM                                                 
 JS_GLB_TABLE               I(4)            4     64       1     8        COM                                                 
 JS_LOC_TABLE               I(4)            4     524      1     8        COM                                                 

Page 6           Source Listing                  OZON2D
2025-03-12 18:21 Symbol Table                    OZON2D.F

 Name                       Type            Bytes Offset   Dimen Elements Attributes       References                         
                                                                                                                              
 JTPAD1                     I(4)            4     472            scalar   COM                                                 
 JTPAD2                     I(4)            4     476            scalar   COM                                                 
 JTPAD3                     I(4)            4     480            scalar   COM                                                 
 JTPAD4                     I(4)            4     484            scalar   COM                                                 
 JTPAD5                     I(4)            4     488            scalar   COM                                                 
 L2GI                       I(4)            4     956      1     239      COM                                                 
 L2GJ                       I(4)            4     3468     1     389      COM                                                 
 MPI_COMM_COMP              I(4)            4     652            scalar   COM                                                 
 MPI_COMM_INTER             I(4)            4     656            scalar   COM                                                 
 MPI_COMM_INTER_ARRAY       I(4)            4     660      1     100      COM                                                 
 MYIE                       I(4)            4     52             scalar   COM              151,160,189,195,206                
 MYIE1                      I(4)            4     56             scalar   COM                                                 
 MYIE1_P1                   I(4)            4     120            scalar   COM                                                 
 MYIE1_P2                   I(4)            4     124            scalar   COM                                                 
 MYIE1_P3                   I(4)            4     128            scalar   COM                                                 
 MYIE1_P4                   I(4)            4     132            scalar   COM                                                 
 MYIE2                      I(4)            4     60             scalar   COM                                                 
 MYIE2_P1                   I(4)            4     136            scalar   COM                                                 
 MYIE_P1                    I(4)            4     100            scalar   COM                                                 
 MYIE_P2                    I(4)            4     104            scalar   COM                                                 
 MYIE_P3                    I(4)            4     108            scalar   COM                                                 
 MYIE_P4                    I(4)            4     112            scalar   COM                                                 
 MYIE_P5                    I(4)            4     116            scalar   COM                                                 
 MYIS                       I(4)            4     40             scalar   COM              151,160,189,195,206                
 MYIS1                      I(4)            4     44             scalar   COM                                                 
 MYIS1_P1                   I(4)            4     84             scalar   COM                                                 
 MYIS1_P2                   I(4)            4     88             scalar   COM                                                 
 MYIS1_P3                   I(4)            4     92             scalar   COM                                                 
 MYIS1_P4                   I(4)            4     96             scalar   COM                                                 
 MYIS2                      I(4)            4     48             scalar   COM                                                 
 MYIS_P1                    I(4)            4     64             scalar   COM                                                 
 MYIS_P2                    I(4)            4     68             scalar   COM                                                 
 MYIS_P3                    I(4)            4     72             scalar   COM                                                 
 MYIS_P4                    I(4)            4     76             scalar   COM                                                 
 MYIS_P5                    I(4)            4     80             scalar   COM                                                 
 MYJE                       I(4)            4     236            scalar   COM                                                 
 MYJE1                      I(4)            4     240            scalar   COM                                                 
 MYJE1_P1                   I(4)            4     280            scalar   COM                                                 
 MYJE1_P2                   I(4)            4     284            scalar   COM                                                 
 MYJE1_P3                   I(4)            4     288            scalar   COM                                                 
 MYJE1_P4                   I(4)            4     292            scalar   COM                                                 
 MYJE2                      I(4)            4     244            scalar   COM                                                 
 MYJE2_P1                   I(4)            4     296            scalar   COM                                                 
 MYJE2_P2                   I(4)            4     300            scalar   COM                                                 
 MYJE2_P3                   I(4)            4     304            scalar   COM                                                 
 MYJE2_P4                   I(4)            4     308            scalar   COM                                                 
 MYJE3                      I(4)            4     248            scalar   COM                                                 
 MYJE3_P4                   I(4)            4     312            scalar   COM                                                 
 MYJE4                      I(4)            4     252            scalar   COM                                                 
 MYJE4_P1                   I(4)            4     316            scalar   COM                                                 
 MYJE4_P4                   I(4)            4     320            scalar   COM                                                 
 MYJE5                      I(4)            4     256            scalar   COM                                                 
 MYJE5_P1                   I(4)            4     324            scalar   COM                                                 
 MYJE5_P2                   I(4)            4     328            scalar   COM                                                 
 MYJE_P1                    I(4)            4     260            scalar   COM                                                 

Page 7           Source Listing                  OZON2D
2025-03-12 18:21 Symbol Table                    OZON2D.F

 Name                       Type            Bytes Offset   Dimen Elements Attributes       References                         
                                                                                                                              
 MYJE_P2                    I(4)            4     264            scalar   COM                                                 
 MYJE_P3                    I(4)            4     268            scalar   COM                                                 
 MYJE_P4                    I(4)            4     272            scalar   COM                                                 
 MYJE_P5                    I(4)            4     276            scalar   COM                                                 
 MYJS                       I(4)            4     140            scalar   COM                                                 
 MYJS1                      I(4)            4     144            scalar   COM                                                 
 MYJS1_P1                   I(4)            4     184            scalar   COM                                                 
 MYJS1_P2                   I(4)            4     188            scalar   COM                                                 
 MYJS1_P3                   I(4)            4     192            scalar   COM                                                 
 MYJS1_P4                   I(4)            4     196            scalar   COM                                                 
 MYJS2                      I(4)            4     148            scalar   COM                                                 
 MYJS2_P1                   I(4)            4     200            scalar   COM                                                 
 MYJS2_P2                   I(4)            4     204            scalar   COM                                                 
 MYJS2_P3                   I(4)            4     208            scalar   COM                                                 
 MYJS2_P4                   I(4)            4     212            scalar   COM                                                 
 MYJS3                      I(4)            4     152            scalar   COM                                                 
 MYJS3_P4                   I(4)            4     216            scalar   COM                                                 
 MYJS4                      I(4)            4     156            scalar   COM                                                 
 MYJS4_P1                   I(4)            4     220            scalar   COM                                                 
 MYJS4_P4                   I(4)            4     224            scalar   COM                                                 
 MYJS5                      I(4)            4     160            scalar   COM                                                 
 MYJS5_P1                   I(4)            4     228            scalar   COM                                                 
 MYJS5_P2                   I(4)            4     232            scalar   COM                                                 
 MYJS_P1                    I(4)            4     164            scalar   COM                                                 
 MYJS_P2                    I(4)            4     168            scalar   COM                                                 
 MYJS_P3                    I(4)            4     172            scalar   COM                                                 
 MYJS_P4                    I(4)            4     176            scalar   COM                                                 
 MYJS_P5                    I(4)            4     180            scalar   COM                                                 
 MYPE                       I(4)            4     0              scalar   COM                                                 
 MY_E                       I(4)            4     336            scalar   COM                                                 
 MY_IE_GLB                  I(4)            4     12             scalar   COM                                                 
 MY_IE_LOC                  I(4)            4     28             scalar   COM                                                 
 MY_IS_GLB                  I(4)            4     8              scalar   COM                                                 
 MY_IS_LOC                  I(4)            4     24             scalar   COM                                                 
 MY_JE_GLB                  I(4)            4     20             scalar   COM                                                 
 MY_JE_LOC                  I(4)            4     36             scalar   COM                                                 
 MY_JS_GLB                  I(4)            4     16             scalar   COM                                                 
 MY_JS_LOC                  I(4)            4     32             scalar   COM                                                 
 MY_N                       I(4)            4     332            scalar   COM                                                 
 MY_NE                      I(4)            4     348            scalar   COM                                                 
 MY_NEB                     I(4)            4     364      1     8        COM                                                 
 MY_NW                      I(4)            4     360            scalar   COM                                                 
 MY_S                       I(4)            4     340            scalar   COM                                                 
 MY_SE                      I(4)            4     352            scalar   COM                                                 
 MY_SW                      I(4)            4     356            scalar   COM                                                 
 MY_W                       I(4)            4     344            scalar   COM                                                 
 NPES                       I(4)            4     4              scalar   COM                                                 
 PRGFDL                     R(4)            4     47952    1     81       COM              196,198,207,209,212,213            
 TEMP1                      R(4)            4     0        2     91719    COM                                                 
 TEMP10                     R(4)            4     3301884  2     91719    COM                                                 
 TEMP11                     R(4)            4     3668760  2     91719    COM                                                 
 TEMP12                     R(4)            4     4035636  2     91719    COM                                                 
 TEMP13                     R(4)            4     4402512  2     91719    COM                                                 
 TEMP14                     R(4)            4     4769388  2     91719    COM                                                 
 TEMP15                     R(4)            4     5136264  2     91719    COM                                                 

Page 8           Source Listing                  OZON2D
2025-03-12 18:21 Symbol Table                    OZON2D.F

 Name                       Type            Bytes Offset   Dimen Elements Attributes       References                         
                                                                                                                              
 TEMP16                     R(4)            4     5503140  2     91719    COM                                                 
 TEMP2                      R(4)            4     366876   2     91719    COM                                                 
 TEMP2X                     R(4)            4     0        2     92971    COM                                                 
 TEMP3                      R(4)            4     733752   2     91719    COM                                                 
 TEMP4                      R(4)            4     1100628  2     91719    COM                                                 
 TEMP5                      R(4)            4     1467504  2     91719    COM                                                 
 TEMP6                      R(4)            4     1834380  2     91719    COM                                                 
 TEMP7                      R(4)            4     2201256  2     91719    COM                                                 
 TEMP8                      R(4)            4     2568132  2     91719    COM                                                 
 TEMP9                      R(4)            4     2935008  2     91719    COM                                                 
 TTVG                       R(4)            4     371884   2     92971    COM                                                 
 XDO3N2                     R(4)            4     11988    2     2997     COM              161,164                            
 XDO3N3                     R(4)            4     23976    2     2997     COM              162,165                            
 XDO3N4                     R(4)            4     35964    2     2997     COM              163,166                            
 XDUO3N                     R(4)            4     0        2     2997     COM              161,164                            

Page 9           Source Listing                  OZON2D
2025-03-12 18:21 Subprograms/Common Blocks       OZON2D.F



SUBPROGRAMS/COMMON BLOCKS

 Name                       Object Declared Type            Bytes Dimen Elements Attributes       References                        
                                                                                                                                    
 GLB_TABLE                  Common 111                                  128      SAVE                                               
 MAPPINGS                   Common 130                                  5024     SAVE                                               
 MPPCOM                     Common 75                                   1464     SAVE                                               
 OZON2D                     Subr   2                                                                                                
 SEASO3                     Common 140                                  48276    SAVE                                               
 TEMPCOM                    Common 116                                  6603768  SAVE                                               
 TOPO                       Common 124                                  17478548 SAVE                                               

COMPILER OPTIONS BEING USED

       -align noall                          -align nonone
       -align nocommons                      -align nodcommons
       -align noqcommons                     -align nozcommons
       -align records                        -align nosequence
       -align norec1byte                     -align norec2byte
       -align norec4byte                     -align norec8byte
       -align norec16byte                    -align norec32byte
       -align norec64byte                    -align noarray8byte
       -align noarray16byte                  -align noarray32byte
       -align noarray64byte                  -align noarray128byte
       -align noarray256byte                 -altparam
       -assume accuracy_sensitive            -assume nobscc
       -assume nobuffered_io                 -assume nobuffered_stdout
       -assume byterecl                      -assume nocontiguous_assumed_shape
       -assume nocontiguous_pointer          -assume nocc_omp
       -assume nocstring                     -assume nodummy_aliases
       -assume nofpe_summary                 -assume noieee_fpe_flags
       -assume nominus0                      -assume noold_boz
       -assume old_complex_align             -assume old_unit_star
       -assume old_inquire_recl              -assume old_ldout_format
       -assume old_ldout_zero                -assume noold_logical_assign
       -assume noold_logical_ldio            -assume old_maxminloc
       -assume old_xor                       -assume noprotect_allocates
       -assume protect_constants             -assume noprotect_parens
       -assume split_common                  -assume source_include
       -assume nostd_intent_in               -assume std_minus0_rounding
       -assume nostd_mod_proc_name           -assume std_value
       -assume realloc_lhs                   -assume underscore
       -assume no2underscores                -assume norecursion
  no   -auto                                 -auto_scalar
  no   -bintext                              -ccdefault default
       -check noarg_temp_created             -check noassume
       -check nobounds                       -check nocontiguous
       -check noformat                       -check nooutput_conversion
       -check nooverflow                     -check nopointers
       -check noshape                        -check nostack
       -check nouninitialized                -check noudio_iostat
       -coarray-num-procs 0             no   -coarray-config-file
       -convert big_endian                   -cross_reference
       -D __INTEL_COMPILER=1910              -D __INTEL_COMPILER_UPDATE=3
       -D __unix__                           -D __unix

Page 10          Source Listing                  OZON2D
2025-03-12 18:21                                 OZON2D.F

       -D __linux__                          -D __linux
       -D __gnu_linux__                      -D unix
       -D linux                              -D __ELF__
       -D __x86_64                           -D __x86_64__
       -D __amd64                            -D __amd64__
       -D __INTEL_COMPILER_BUILD_DATE=20200925       -D __INTEL_OFFLOAD
       -D __MMX__                            -D __SSE__
       -D __SSE_MATH__                       -D __SSE2__
       -D __SSE2_MATH__                      -D __SSE3__
       -D __SSSE3__                          -D __SSE4_1__
       -D __SSE4_2__                         -D __POPCNT__
       -D __PCLMUL__                         -D __AES__
       -D __AVX__                            -D __F16C__
       -D __AVX_I__                          -D __RDRND__
       -D __FMA__                            -D __FP_FAST_FMA
       -D __FP_FAST_FMAF                     -D __BMI__
       -D __LZCNT__                          -D __AVX2__
       -D __haswell                          -D __haswell__
       -D __tune_haswell__                   -D __core_avx2
       -D __core_avx2__                      -D __tune_core_avx2__
       -D __CRAY_X86_ROME                    -D __CRAYXT_COMPUTE_LINUX_TARGET
       -double_size 64                  no   -d_lines
  no   -Qdyncom                              -error_limit 30
  no   -f66                             no   -f77rtl
  no   -fast                                 -fpscomp nofilesfromcmd
       -fpscomp nogeneral                    -fpscomp noioformat
       -fpscomp noldio_spacing               -fpscomp nologicals
       -fixed                           no   -fpconstant
       -fpe3                                 -fprm nearest
  no   -ftz                                  -fp_model precise
       -fp_model nofast                      -fp_model nostrict
       -fp_model nosource                    -fp_model nodouble
       -fp_model noextended                  -fp_model novery_fast
       -fp_model noexcept                    -fp_model nono_except
       -fp_modbits nofp_contract             -fp_modbits nono_fp_contract
       -fp_modbits nofenv_access             -fp_modbits nono_fenv_access
       -fp_modbits nocx_limited_range        -fp_modbits nono_cx_limited_range
       -fp_modbits noprec_div                -fp_modbits nono_prec_div
       -fp_modbits noprec_sqrt               -fp_modbits nono_prec_sqrt
       -fp_modbits noftz                     -fp_modbits no_ftz
       -fp_modbits nointrin_limited_range       -fp_modbits nono_intrin_limited_range
       -fp_modbits notrunc_compares          -fp_modbits nono_trunc_compares
       -fp_modbits noieee_nan_compares       -fp_modbits nono_ieee_nan_compares
       -fp_modbits nohonor_f32_conversion       -fp_modbits nono_honor_f32_conversion
       -fp_modbits nohonor_f64_conversion       -fp_modbits nono_honor_f64_conversion
       -fp_modbits nono_x87_copy             -fp_modbits nono_no_x87_copy
       -fp_modbits noexception_semantics       -fp_modbits nono_exception_semantics
       -fp_modbits noprecise_libm_functions       -fp_modbits nono_precise_libm_functions
       -heap_arrays 0                   no   -threadprivate_compat
       -g2                                   -iface nomixed_str_len_arg
       -iface nono_mixed_str_len_arg         -init noarrays
       -init nohuge                          -init noinfinity
       -init nominus_huge                    -init nominus_infinity
       -init nominus_tiny                    -init nonan
       -init nosnan                          -init notiny
       -init nozero                     no   -intconstant
       -integer_size 32                 no   -mixed_str_len_arg

Page 11          Source Listing                  OZON2D
2025-03-12 18:21                                 OZON2D.F

  no   -module                               -names lowercase
  no   -noinclude                       no   -o
       -offload-build=host                   -openmp-simd
       -O2                              no   -pad_source
       -real_size 32                    no   -recursive
       -reentrancy threaded                  -vec=simd
       -show nofullpath                      -show noinclude
       -show map                             -show options
  no   -syntax_only                     no   -threadcom
  no   -U                               no   -vms
       -w noall                              -w nonone
       -w alignments                         -w nodeclarations
       -w noexternals                        -w general
       -w noignore_bounds                    -w noignore_loc
       -w nointerfaces                       -w noshape
       -w notruncated_source                 -w uncalled
       -w uninitialized                      -w nounused
       -w usage                         no   -wrap-margins

       -includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/,
           .f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90,
           /pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90,
           /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90,
           /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90,
           /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90,
           /usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90
       -list filename : OZON2D.lst
  no   -o

COMPILER: Intel(R) Fortran 19.1-1655