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 8150 for branches/2016/v3_6_CMIP6_ice_diagnostics/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 – NEMO

Ignore:
Timestamp:
2017-06-07T16:37:36+02:00 (7 years ago)
Author:
vancop
Message:

SIMIP outputs, phase 2

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/v3_6_CMIP6_ice_diagnostics/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r7517 r8150  
    230230      ! automatic definitions of some of the xml attributs 
    231231      CALL set_xmlatt 
     232 
     233      CALL set_1point 
    232234 
    233235      ! end file definition 
    … …  
    15731575 
    15741576 
     1577   SUBROUTINE set_1point  
     1578   !!----------------------------------------------------------------------  
     1579   !!                     ***  ROUTINE set_1point  ***  
     1580   !!  
     1581   !! ** Purpose :   define zoom grid for scalar fields  
     1582   !!  
     1583   !!----------------------------------------------------------------------  
     1584   REAL(wp), DIMENSION(1)   ::   zz = 1.  
     1585   INTEGER  :: ix, iy  
     1586   !!----------------------------------------------------------------------  
     1587   CALL dom_ngb( 180., 90., ix, iy, 'T' ) !  Nearest point to north pole should be ocean  
     1588   CALL iom_set_domain_attr('1point', zoom_ibegin=ix, zoom_jbegin=iy)  
     1589 
     1590   END SUBROUTINE set_1point  
     1591 
     1592 
    15751593   SUBROUTINE set_xmlatt 
    15761594      !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.