- Timestamp:
- 2020-04-25T11:00:22+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/IOM/iom.F90
r12807 r12815 1887 1887 ! 1888 1888 CALL iom_set_domain_attr( "grid_"//cdgrd , mask = RESHAPE(zmask(Nis0:Nie0,Njs0:Nje0,1),(/Ni_0*Nj_0 /)) /= 0. ) 1889 CALL iom_set_grid_attr ( "grid_"//cdgrd//"_3D", mask = RESHAPE(zmask(Nis0:Nie0,Njs0:Nje0,:),(/Ni_0 *Nj_0,jpk/)) /= 0. )1889 CALL iom_set_grid_attr ( "grid_"//cdgrd//"_3D", mask = RESHAPE(zmask(Nis0:Nie0,Njs0:Nje0,:),(/Ni_0,Nj_0,jpk/)) /= 0. ) 1890 1890 ENDIF 1891 1891 ! … … 2008 2008 !!---------------------------------------------------------------------- 2009 2009 ! 2010 ALLOCATE( zlon( ni*nj) ) ; zlon(:) = 0._wp2010 ALLOCATE( zlon(Ni_0*Nj_0) ) ; zlon(:) = 0._wp 2011 2011 ! 2012 2012 ! CALL dom_ngb( -168.53, 65.03, ix, iy, 'T' ) ! i-line that passes through Bering Strait: Reference latitude (used in plots)
Note: See TracChangeset
for help on using the changeset viewer.