Changeset 5147 for trunk/NEMOGCM/NEMO/OPA_SRC/IOM

Timestamp:

2015-03-13T11:01:32+01:00 (9 years ago)

Author:

cetlod

Message:

Merge changes from dev_r5020_CNRS_DIAPTR into trunk, see ticket #1435

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (1 diff)

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

@@ -1336 +1336 @@
       zlatpira = (/ -19.0, -14.0,  -8.0, 0.0, 4.0, 8.0, 12.0, 15.0, 20.0 /)
       CALL set_mooring( zlonpira, zlatpira )
+
+      ! diaptr : zonal mean 
+      CALL dom_ngb( 180., 90., ix, iy, 'T' ) !  i-line that passes near the North Pole : Reference latitude (used in plots)
+      CALL iom_set_domain_attr ('ptr', zoom_ibegin=ix, zoom_nj=jpjglo)
+      CALL iom_update_file_name('ptr')
+      !
       
    END SUBROUTINE set_xmlatt