Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/cosp_output_write_mod.F90

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/phylmd/cosp/cosp_output_write_mod.F90 (modified) (9 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/cosp_output_write_mod.F90

@@ -185 +185 @@
     do k=1,PARASOL_NREFL
      do ip=1, Npoints
-      if (stlidar%cldlayer(ip,4).gt.0.01.and.stlidar%parasolrefl(ip,k).ne.missing_val) then
+      if (stlidar%cldlayer(ip,4)>0.01.and.stlidar%parasolrefl(ip,k)/=missing_val) then
         parasolcrefl(ip,k)=(stlidar%parasolrefl(ip,k)-0.03*(1.-stlidar%cldlayer(ip,4)))/ &
                              stlidar%cldlayer(ip,4)
@@ -456 +456 @@
     CHARACTER(LEN=20) :: typeecrit
 
-    ! ug On récupère le type écrit de la structure:
-    !       Assez moche, Ã|  refaire si meilleure méthode...
+    ! ug On récupère le type écrit de la structure:
+    !       Assez moche, �|  refaire si meilleure méthode...
     IF (INDEX(var%cosp_typeecrit(iff), "once") > 0) THEN
        typeecrit = 'once'
@@ -523 +523 @@
 
 ! Axe vertical
-      IF (nvertsave.eq.nvertp(iff)) THEN
+      IF (nvertsave==nvertp(iff)) THEN
           klevs=PARASOL_NREFL
           nam_axvert="sza"
-      ELSE IF (nvertsave.eq.nvertisccp(iff)) THEN
+      ELSE IF (nvertsave==nvertisccp(iff)) THEN
           klevs=7
           nam_axvert="pressure2"
-      ELSE IF (nvertsave.eq.nvertcol(iff)) THEN
+      ELSE IF (nvertsave==nvertcol(iff)) THEN
           klevs=Ncolout
           nam_axvert="column"
-      ELSE IF (nvertsave.eq.nverttemp(iff)) THEN
+      ELSE IF (nvertsave==nverttemp(iff)) THEN
           klevs=LIDAR_NTEMP
           nam_axvert="temp"
-      ELSE IF (nvertsave.eq.nvertmisr(iff)) THEN
+      ELSE IF (nvertsave==nvertmisr(iff)) THEN
           klevs=MISR_N_CTH
           nam_axvert="cth16"
-      ELSE IF (nvertsave.eq.nvertReffIce(iff)) THEN
+      ELSE IF (nvertsave==nvertReffIce(iff)) THEN
           klevs= numMODISReffIceBins
           nam_axvert="ReffIce"
-      ELSE IF (nvertsave.eq.nvertReffLiq(iff)) THEN
+      ELSE IF (nvertsave==nvertReffLiq(iff)) THEN
           klevs= numMODISReffLiqBins
           nam_axvert="ReffLiq"
@@ -558 +558 @@
       END IF
 
-    ! ug On récupère le type écrit de la structure:
-    !       Assez moche, Ã|  refaire si meilleure méthode...
+    ! ug On récupère le type écrit de la structure:
+    !       Assez moche, �|  refaire si meilleure méthode...
     IF (INDEX(var%cosp_typeecrit(iff), "once") > 0) THEN
        typeecrit = 'once'
@@ -628 +628 @@
     IF (prt_level >= 9) WRITE(lunout,*)'Begin histrwrite2d ',var%name
 
-  ! On regarde si on est dans la phase de définition ou d'écriture:
+  ! On regarde si on est dans la phase de définition ou d'écriture:
   IF(.NOT.cosp_varsdefined) THEN
 !$OMP MASTER
-      !Si phase de définition.... on définit
+      !Si phase de définition.... on définit
       CALL conf_cospoutputs(var%name,var%cles)
       DO iff=1, 3
@@ -640 +640 @@
 !$OMP END MASTER
   ELSE
-    !Et sinon on.... écrit
+    !Et sinon on.... écrit
     IF (SIZE(field)/=klon) &
   CALL abort_physic('iophy::histwrite2d_cosp','Field first DIMENSION not equal to klon',1) 
@@ -725 +725 @@
                nom=var%name
       END IF
-  ! On regarde si on est dans la phase de définition ou d'écriture:
+  ! On regarde si on est dans la phase de définition ou d'écriture:
   IF(.NOT.cosp_varsdefined) THEN
-      !Si phase de définition.... on définit
+      !Si phase de définition.... on définit
 !$OMP MASTER
       CALL conf_cospoutputs(var%name,var%cles)
@@ -737 +737 @@
 !$OMP END MASTER
   ELSE
-    !Et sinon on.... écrit
+    !Et sinon on.... écrit
     IF (SIZE(field,1)/=klon) &
    CALL abort_physic('iophy::histwrite3d','Field first DIMENSION not equal to klon',1)                                  
@@ -809 +809 @@
 
   IF(cosp_varsdefined) THEN
-    !Et sinon on.... écrit
+    !Et sinon on.... écrit
     IF (SIZE(field,1)/=klon) &
    CALL abort_physic('iophy::histwrite3d','Field first DIMENSION not equal to klon',1)