New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1738 for trunk – NEMO

Changeset 1738 for trunk


Ignore:
Timestamp:
2009-11-18T15:37:06+01:00 (14 years ago)
Author:
smasson
Message:

iom_put for scalar values, see ticket:604

Location:
trunk
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/CONFIG/GYRE/EXP00/iodef.xml

    r1725 r1738  
    3838   <field id="28d"          description="Depth of 28C isotherm"                     unit="m"                        /> 
    3939   <field id="hc300"        description="Heat content 300 m"                        unit="W"                        /> 
    40      </group> 
     40      </group> 
    4141        
    4242      <!-- SBC --> 
    … …  
    5656      <!-- U grid --> 
    5757       
    58      <group id="grid_U"  axis_ref="depthu" grid_ref="grid_U"> 
     58      <group id="grid_U"  axis_ref="depthu" grid_ref="grid_U"> 
    5959   <field id="utau"        description="Wind Stress along i-axis"                  unit="N/m2" axis_ref="none" /> 
    6060   <field id="uoce"        description="ocean current along i-axis"                unit="m/s"                  /> 
    … …  
    6464   <!-- uoce_eiv: available with key_trabbl_adv --> 
    6565   <field id="uoce_bbl"    description="BBL ocean current along i-axis"            unit="m/s"                  /> 
    66      </group> 
     66      </group> 
    6767       
    68      <!-- V grid --> 
    69             
    70      <group id="grid_V"  axis_ref="depthv" grid_ref="grid_V"> 
     68      <!-- V grid --> 
     69       
     70      <group id="grid_V"  axis_ref="depthv" grid_ref="grid_V"> 
    7171   <field id="vtau"        description="Wind Stress along j-axis"                  unit="N/m2" axis_ref="none" /> 
    7272   <field id="voce"        description="ocean current along j-axis"                unit="m/s"                  /> 
    … …  
    7676   <!-- voce_eiv: available with key_trabbl_adv --> 
    7777   <field id="voce_bbl"    description="BBL ocean current along j-axis"            unit="m/s"                  /> 
    78      </group> 
    79             
    80      <!-- W grid --> 
     78      </group> 
    8179       
    82      <group id="grid_W"  axis_ref="depthw" grid_ref="grid_W"> 
     80      <!-- W grid --> 
     81       
     82      <group id="grid_W"  axis_ref="depthw" grid_ref="grid_W"> 
    8383   <field id="woce"        description="ocean vertical velocity"                   unit="m/s"                  /> 
    8484   <field id="woce_eff"    description="effective ocean vertical velocity"         unit="m/s"                  /> 
    … …  
    100100   <!-- avt_tide: available with key_zdftmx --> 
    101101   <field id="av_tide"     description="tidal vertical diffusivity"               unit="m2/s"                 /> 
    102      </group> 
    103  
     102      </group> 
     103       
     104      <!-- scalar --> 
     105       
     106      <group id="scalar" axis_ref="none" grid_ref="scalarpoint" zoom_ref="1point" > 
     107      </group> 
     108       
    104109  </field_definition> 
    105110 
    … …  
    182187    <grid id="grid_V" description="grid V" /> 
    183188    <grid id="grid_W" description="grid W" /> 
     189    <grid id="scalarpoint" description="scalar" > 
     190      <zoom id="1point" ibegin="1" jbegin="1" ni="1" nj="1" /> 
     191    </grid> 
    184192  </grid_definition>     
    185193 

  • trunk/CONFIG/GYRE_LOBSTER/EXP00/iodef.xml

    r1725 r1738  
    140140       <field id="SEDPOC"   description="SEDPOC"                              unit="-"  />  
    141141     </group> 
     142 
     143      <!-- scalar --> 
     144       
     145      <group id="scalar" axis_ref="none" grid_ref="scalarpoint" zoom_ref="1point" > 
     146      </group> 
    142147 
    143148  </field_definition> 
    … …  
    255260    <grid id="grid_V" description="grid V" /> 
    256261    <grid id="grid_W" description="grid W" /> 
     262    <grid id="scalarpoint" description="scalar" > 
     263      <zoom id="1point" ibegin="1" jbegin="1" ni="1" nj="1" /> 
     264    </grid> 
    257265  </grid_definition>     
    258266 

  • trunk/CONFIG/ORCA2_LIM/EXP00/iodef.xml

    r1731 r1738  
    137137   <field id="av_tide"     description="tidal vertical diffusivity"               unit="m2/s"                 /> 
    138138      </group> 
    139            
     139                 
     140      <!-- scalar --> 
     141       
     142      <group id="scalar" axis_ref="none" grid_ref="scalarpoint" zoom_ref="1point" > 
     143      </group> 
     144 
    140145    </field_definition> 
    141146     
    … …  
    488493      </grid> 
    489494 
     495      <grid id="scalarpoint" description="scalar" > 
     496   <zoom id="1point" ibegin="1" jbegin="1" ni="1" nj="1" /> 
     497      </grid> 
     498 
    490499    </grid_definition>     
    491500     

  • trunk/CONFIG/ORCA2_LIM_PISCES/EXP00/iodef.xml

    r1725 r1738  
    200200     </group> 
    201201 
     202      <!-- scalar --> 
     203       
     204      <group id="scalar" axis_ref="none" grid_ref="scalarpoint" zoom_ref="1point" > 
     205      </group> 
     206 
    202207    </field_definition> 
    203208     
    … …  
    357362      <grid id="grid_V" description="grid V" /> 
    358363      <grid id="grid_W" description="grid W" /> 
     364      <grid id="scalarpoint" description="scalar" > 
     365   <zoom id="1point" ibegin="1" jbegin="1" ni="1" nj="1" /> 
     366      </grid> 
    359367    </grid_definition>     
    360368     

  • trunk/CONFIG/ORCA2_OFF_PISCES/EXP00/iodef.xml

    r1725 r1738  
    7676     </group> 
    7777 
     78      <!-- scalar --> 
     79       
     80      <group id="scalar" axis_ref="none" grid_ref="scalarpoint" zoom_ref="1point" > 
     81      </group> 
    7882 
    7983  </field_definition> 
    … …  
    169173    <grid id="grid_V" description="grid V" /> 
    170174    <grid id="grid_W" description="grid W" /> 
     175    <grid id="scalarpoint" description="scalar" > 
     176      <zoom id="1point" ibegin="1" jbegin="1" ni="1" nj="1" /> 
     177    </grid> 
    171178  </grid_definition> 
    172179 

  • trunk/CONFIG/POMME/EXP00/iodef.xml

    r1725 r1738  
    112112     </group> 
    113113 
     114      <!-- scalar --> 
     115       
     116      <group id="scalar" axis_ref="none" grid_ref="scalarpoint" zoom_ref="1point" > 
     117      </group> 
     118 
    114119  </field_definition> 
    115120 
    … …  
    191196    <grid id="grid_V" description="grid V" /> 
    192197    <grid id="grid_W" description="grid W" /> 
     198    <grid id="scalarpoint" description="scalar" > 
     199      <zoom id="1point" ibegin="1" jbegin="1" ni="1" nj="1" /> 
     200    </grid> 
    193201  </grid_definition>     
    194202 

  • trunk/NEMO/OPA_SRC/IOM/iom.F90

    r1731 r1738  
    5959   END INTERFACE 
    6060  INTERFACE iom_put 
    61      MODULE PROCEDURE iom_p2d, iom_p3d 
     61     MODULE PROCEDURE iom_p0d, iom_p2d, iom_p3d 
    6262  END INTERFACE 
    6363#if defined key_iomput 
    … …  
    9999 
    100100      ! horizontal grid definition 
     101      CALL set_scalar 
    101102      CALL set_grid( "grid_T", glamt, gphit ) 
    102103      CALL set_grid( "grid_U", glamu, gphiu ) 
    … …  
    910911   !!                   INTERFACE iom_put 
    911912   !!---------------------------------------------------------------------- 
     913   SUBROUTINE iom_p0d( cdname, pfield0d ) 
     914      CHARACTER(LEN=*), INTENT(in) ::   cdname 
     915      REAL(wp)        , INTENT(in) ::   pfield0d 
     916#if defined key_iomput 
     917      CALL event__write_field2D( cdname, RESHAPE( (/pfield0d/), (/1,1/) ) ) 
     918#else 
     919      IF( .FALSE. )   WRITE(numout,*) cdname, pfield0d   ! useless test to avoid compilation warnings 
     920#endif 
     921   END SUBROUTINE iom_p0d 
     922 
    912923   SUBROUTINE iom_p2d( cdname, pfield2d ) 
    913924      CHARACTER(LEN=*)            , INTENT(in) ::   cdname 
    … …  
    953964 
    954965 
     966   SUBROUTINE set_scalar 
     967      !!---------------------------------------------------------------------- 
     968      !!                     ***  ROUTINE   *** 
     969      !! 
     970      !! ** Purpose :   define fake grids for scalar point 
     971      !! 
     972      !!---------------------------------------------------------------------- 
     973      REAL(wp), DIMENSION(1,1) ::   zz = 1. 
     974      !!---------------------------------------------------------------------- 
     975      CALL event__set_grid_dimension( 'scalarpoint', jpnij, 1) 
     976      CALL event__set_grid_domain   ( 'scalarpoint', 1, 1, narea, 1, zz, zz ) 
     977      CALL event__set_grid_type_nemo( 'scalarpoint' ) 
     978 
     979   END SUBROUTINE set_scalar 
     980 
     981 
    955982   SUBROUTINE set_xmlatt 
    956983      !!---------------------------------------------------------------------- 
    … …  
    960987      !! 
    961988      !!---------------------------------------------------------------------- 
    962       CHARACTER(len=6),DIMENSION( 5) ::   clsuff                   ! suffix name 
     989      CHARACTER(len=6),DIMENSION( 6) ::   clsuff                   ! suffix name 
    963990      CHARACTER(len=1),DIMENSION( 3) ::   clgrd                    ! suffix name 
    964991      CHARACTER(len=50)              ::   clname                   ! file name 
    … …  
    9881015       
    9891016      ! output file names (attribut: name) 
    990       clsuff(:) = (/ 'grid_T', 'grid_U', 'grid_V', 'grid_W', 'icemod' /)       
     1017      clsuff(:) = (/ 'grid_T', 'grid_U', 'grid_V', 'grid_W', 'icemod', 'scalar' /)       
    9911018      DO jg = 1, SIZE(clsuff)                                                                  ! grid type 
    9921019         DO jh = 1, 12                                                                         ! 1, 2, 3, 4, 6, 12 hours 
Note: See TracChangeset for help on using the changeset viewer.