Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2

Timestamp:

Aug 3, 2024, 2:56:58 PM (5 months ago)

Author:

abarral

Message:

Put .h into modules

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2

Files:

• lidar_simulator.F90 (modified) (2 diffs)
• lmdz_cosp_interface.F90 (modified) (2 diffs)
• lmdz_cosp_read_outputkeys.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/lidar_simulator.F90

@@ -1070 +1070 @@
              enddo
              checkcldlayerphase2 = cldlayer(i,iz)-checkcldlayerphase
-             if((checkcldlayerphase2 .gt. 0.01) .or. (checkcldlayerphase2 .lt. -0.01) ) print *, checkcldlayerphase,cldlayer(i,iz)
+             if((checkcldlayerphase2 .gt. 0.01) .or. (checkcldlayerphase2 .lt. -0.01) ) PRINT *, checkcldlayerphase,cldlayer(i,iz)
           endif
        enddo
@@ -1109 +1109 @@
           checktemp=lidarcldtemp(i,itemp,2)+lidarcldtemp(i,itemp,3)+lidarcldtemp(i,itemp,4)
           !if(checktemp .NE. lidarcldtemp(i,itemp,1))then
-          !   print *, i,itemp
-          !   print *, lidarcldtemp(i,itemp,1:4)
+          !   PRINT *, i,itemp
+          !   PRINT *, lidarcldtemp(i,itemp,1:4)
           !endif
           

LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/lmdz_cosp_interface.F90

@@ -527 +527 @@
       !$OMP MASTER
 
-        print *, ' Open outpts files and define axis'
+        PRINT *, ' Open outpts files and define axis'
         call lmdz_cosp_output_open(Nlevlmdz, Ncolumns, presnivs, dtime, freq_cosp,       &
                                    ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, ok_all_xml, &
@@ -553 +553 @@
 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
-       print *, 'Calling write output'
+       PRINT *, 'Calling write output'
         call lmdz_cosp_output_write(Nlevlmdz, Npoints, Ncolumns, itap, dtime, freq_COSP, &
                                     missing_val, cfg, niv_sorties, cospOUT)

LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/lmdz_cosp_read_outputkeys.F90

@@ -897 +897 @@
 
   if (i.gt.107) then
-     print *, 'COSP_IO: wrong number of output diagnostics'
-     print *, i,107
+     PRINT *, 'COSP_IO: wrong number of output diagnostics'
+     PRINT *, i,107
      stop
   endif