Changeset 116 for trunk/NEMO
- Timestamp:
- 2004-06-28T17:09:50+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/domwri.F90
r107 r116 2 2 !!====================================================================== 3 3 !! *** MODULE domwri *** 4 !! Ocean initialization : write the ocean domain mesh a nd mask file(s)4 !! Ocean initialization : write the ocean domain mesh ask file(s) 5 5 !!====================================================================== 6 6 … … 88 88 INTEGER :: itime ! output from restini ??? 89 89 REAL(wp) :: zdate0 90 REAL(wp), DIMENSION(jpi,jpj) :: & 91 zprt ! temporary array for bathymetry 92 90 93 CHARACTER (len=21) :: & 91 94 clnam0 = 'mesh_mask', & ! filename (mesh and mask informations) … … 102 105 CALL ymds2ju( 0, 1, 1, 0.e0, zdate0 ) ! calendar initialization 103 106 107 ! note that mbathy has been modified in dommsk or in solver. 108 ! it is the number of non-zero "w" levels in the water, and the minimum 109 ! value (on land) is 2. We define zprt as the number of "T" points in the ocean 110 ! at any location, and zero on land. 111 ! 112 zprt = tmask(:,:,1)*(mbathy-1) 104 113 105 114 SELECT CASE (nmsh) … … 179 188 CALL restput( inum3, 'ff', jpi, jpj, 1, 0, ff ) ! ! coriolis factor 180 189 190 CALL restput( inum4, 'mbathy', jpi, jpj, 1, 0, zprt ) 191 181 192 # if defined key_s_coord 182 193 ! ! s-coordinate … … 197 208 CALL restput( inum4, 'hdepw' , jpi, jpj, 1, 0, hdepw ) 198 209 199 CALL restput( inum4, 'e3tp' , jpi, jpj, 1 , 0, e3tp ) ! ! scale factors 200 CALL restput( inum4, 'e3wp' , jpi, jpj, 1 , 0, e3wp ) 210 CALL restput( inum4, 'e3t_ps', jpi, jpj, jpk, 0, e3t_ps ) ! ! scale factors 201 211 CALL restput( inum4, 'e3u_ps', jpi, jpj, jpk, 0, e3u_ps ) 202 212 CALL restput( inum4, 'e3v_ps', jpi, jpj, jpk, 0, e3v_ps ) 213 CALL restput( inum4, 'e3w_ps', jpi, jpj, jpk, 0, e3w_ps ) 203 214 204 215 CALL restput( inum4, 'gdept' , 1, 1, jpk, 0, gdept ) ! ! reference z-coord.
Note: See TracChangeset
for help on using the changeset viewer.