- Timestamp:
- 2008-12-29T19:10:37+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/domzgr.F90
r1146 r1235 1179 1179 ! non-dimensional "sigma" for model level depth at w- and t-levels 1180 1180 DO jk = 1, jpk 1181 gsigw(jk) = -fssig( FLOAT(jk)-0.5)1182 gsigt(jk) = -fssig( FLOAT(jk))1181 gsigw(jk) = -fssig( REAL(jk,wp)-0.5_wp ) 1182 gsigt(jk) = -fssig( REAL(jk,wp) ) 1183 1183 END DO 1184 1184 IF( nprint == 1 .AND. lwp ) WRITE(numout,*) 'gsigw 1 jpk ', gsigw(1), gsigw(jpk)
Note: See TracChangeset
for help on using the changeset viewer.