Changeset 1235

Timestamp:

2008-12-29T19:10:37+01:00 (15 years ago)

Author:

rblod

Message:

Fix a conversion bug, see ticket #269

File:

• trunk/NEMO/OPA_SRC/DOM/domzgr.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DOM/domzgr.F90

@@ -1179 +1179 @@
       ! non-dimensional "sigma" for model level depth at w- and t-levels
       DO jk = 1, jpk
-        gsigw(jk) = -fssig( FLOAT(jk)-0.5 )
-        gsigt(jk) = -fssig( FLOAT(jk)     )
+        gsigw(jk) = -fssig( REAL(jk,wp)-0.5_wp )
+        gsigt(jk) = -fssig( REAL(jk,wp)        )
       END DO
       IF( nprint == 1 .AND. lwp ) WRITE(numout,*) 'gsigw 1 jpk    ', gsigw(1), gsigw(jpk)