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 6679 for branches/UKMO/dev_r5518_GC3p0_package_v2/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 – NEMO

Ignore:
Timestamp:
2016-06-09T18:34:00+02:00 (8 years ago)
Author:
malcolmroberts
Message:

Merged in changes from v3_6_extra_CMIP6_diagnostics up to revision 6674

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GC3p0_package_v2/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r6462 r6679  
    193193      ! automatic definitions of some of the xml attributs 
    194194      CALL set_xmlatt 
     195 
     196      CALL set_1point 
    195197 
    196198      ! end file definition 
    … …  
    14571459 
    14581460   END SUBROUTINE set_scalar 
     1461 
     1462   SUBROUTINE set_1point 
     1463      !!---------------------------------------------------------------------- 
     1464      !!                     ***  ROUTINE set_1point  *** 
     1465      !! 
     1466      !! ** Purpose :   define zoom grid for scalar fields 
     1467      !! 
     1468      !!---------------------------------------------------------------------- 
     1469      REAL(wp), DIMENSION(1)   ::   zz = 1. 
     1470      INTEGER  :: ix, iy 
     1471      !!---------------------------------------------------------------------- 
     1472      CALL dom_ngb( 180., 90., ix, iy, 'T' ) !  Nearest point to north pole should be ocean 
     1473      CALL iom_set_domain_attr('1point', zoom_ibegin=ix, zoom_jbegin=iy) 
     1474 
     1475   END SUBROUTINE set_1point 
    14591476 
    14601477 
Note: See TracChangeset for help on using the changeset viewer.