Changeset 6393 for trunk/NEMOGCM/TOOLS/SIREN/src/math.f90

Timestamp:

2016-03-17T10:16:03+01:00 (8 years ago)

Author:

jpaul

Message:

commit changes/bugfix/... for SIREN; see ticket #1700

File:

• trunk/NEMOGCM/TOOLS/SIREN/src/math.f90 (modified) (2 diffs)

trunk/NEMOGCM/TOOLS/SIREN/src/math.f90

@@ -1224 +1224 @@
          
       CASE('K')
+
+         ALLOCATE( dl_value(il_shape(1),il_shape(2),3) )
          ! compute derivative in k-direction
          DO jk=1,il_shape(3)
@@ -1266 +1268 @@
             ENDIF         
 
-            WHERE( dl_value(:,:, 2) /= dd_fill .AND. & ! jk
-               &   dl_value(:,:, 3) /= dd_fill .AND. & ! jk+1
-               &   dl_value(:,:, 1) /= dd_fill )       ! jk-1
+            WHERE( dl_value(:,:,2) /= dd_fill .AND. & ! jk
+               &   dl_value(:,:,3) /= dd_fill .AND. & ! jk+1
+               &   dl_value(:,:,1) /= dd_fill )       ! jk-1
 
                math_deriv_3D(:,:,jk)=&