Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/gradiv2_loc.F

Timestamp:

Jul 19, 2024, 5:41:58 PM (4 months ago)

Author:

abarral

Message:

(lint) Fix obsolete boolean operators

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/gradiv2_loc.F (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/gradiv2_loc.F

@@ -81 +81 @@
 c      call write_field3d_p('div1',reshape(div,(/iip1,jjp1,llm/)))
 
-      IF( ld.GT.1 )   THEN
+      IF( ld>1 )   THEN
 c$OMP BARRIER
        call Register_Hallo_u(div,llm,1,1,1,1,Request_dissip)