Changeset 2635

Timestamp:

2011-03-01T12:37:29+01:00 (13 years ago)

Author:

trackstand2

Message:

wrk_use etc.: fixed bug in check on return value in loop

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/wrk_nemo.F90 (modified) (6 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/wrk_nemo.F90

@@ -220 +220 @@
       iarg    = 1
       
-      DO WHILE( wrk_in_use .AND. iarg <= max_num_wrkspaces )
+      DO WHILE( (.NOT. wrk_in_use) .AND. iarg <= max_num_wrkspaces )
          !
          IF( kdim == 1 ) THEN
@@ -315 +315 @@
       iarg      = 1
       !
-      DO WHILE( llwrk_in_use .AND. iarg <= max_num_wrkspaces )
+      DO WHILE( (.NOT. llwrk_in_use) .AND. iarg <= max_num_wrkspaces )
          !
          IF( kdim == 2 ) THEN
@@ -355 +355 @@
          ENDIF
          !
-      END DO ! while(llwrk_in_use .AND. iarg <= max_num_wrkspaces)
+      END DO ! while( (.NOT. llwrk_in_use) .AND. iarg <= max_num_wrkspaces)
       !
    END FUNCTION llwrk_in_use
@@ -384 +384 @@
       iarg     = 1
       
-      DO WHILE( iwrk_in_use .AND. iarg <= max_num_wrkspaces )
+      DO WHILE( (.NOT. iwrk_in_use) .AND. iarg <= max_num_wrkspaces )
          !
          IF( kdim == 2 ) THEN
@@ -463 +463 @@
       iarg       = 1
        
-      DO WHILE( wrk_in_use_xz .AND. iarg <= max_num_wrkspaces )
+      DO WHILE( (.NOT. wrk_in_use_xz) .AND. iarg <= max_num_wrkspaces )
          !
          IF(iptr > num_xz_wrkspaces)THEN
@@ -485 +485 @@
          END IF
          !
-      END DO ! while(wrk_in_use_xz .AND. iarg <= max_num_wrkspaces)
+      END DO ! while( (.NOT. wrk_in_use_xz) .AND. iarg <= max_num_wrkspaces)
       !
    END FUNCTION wrk_in_use_xz