Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/phys_cosp2.F90

Timestamp:

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

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/phys_cosp2.F90 (modified) (8 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/phys_cosp2.F90

@@ -286 +286 @@
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 ! AI mars 2017
-!        print *, 'Allocating memory for gridbox type...'
+!        PRINT *, 'Allocating memory for gridbox type...'
 
 ! Surafce emissivity
@@ -303 +303 @@
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
-!        print *, 'Populating input structure...'
+!        PRINT *, 'Populating input structure...'
         gbx%longitude = lon
         gbx%latitude = lat
@@ -387 +387 @@
         ! Define new vertical grid
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-!        print *, 'Defining new vertical grid...'
+!        PRINT *, 'Defining new vertical grid...'
         call construct_cosp_vgrid(gbx,Nlr,use_vgrid,csat_vgrid,vgrid)
         print*,'Nlvgrid,use_vgrid,csat_vgrid ',Nlr,use_vgrid,csat_vgrid
@@ -394 +394 @@
        ! Allocate memory for other types
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-!        print *, 'Allocating memory for other types...'
+!        PRINT *, 'Allocating memory for other types...'
         call construct_cosp_subgrid(Npoints, Ncolumns, Nlevels, sgx)
         if (cfg%Lradar_sim) call construct_cosp_sgradar(Npoints,Ncolumns,Nlevels,N_HYDRO,sgradar) 
@@ -409 +409 @@
     if (debut_cosp) then
       !$OMP MASTER
-        print *, ' Open outpts files and define axis'
+        PRINT *, ' Open outpts files and define axis'
         call cosp_output_open(Nlevlmdz, Ncolumns, presnivs, dtime, freq_cosp, &
                               ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, ok_all_xml, &
@@ -428 +428 @@
 !!!!!!!!!!!!!!!!!! Ecreture des sorties Cosp !!!!!!!!!!!!!!r!!!!!!:!!!!!
 
-       print *, 'Calling write output'
+       PRINT *, 'Calling write output'
         call cosp_output_write(Nlevlmdz, Npoints, Ncolumns, itap, dtime, freq_COSP, missing_val, &
                                cfg, gbx, vgrid, sglidar, sgradar, stlidar, stradar, & 
@@ -435 +435 @@
         ! Deallocate memory in derived types
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-      print *, 'Deallocating memory...'
+      PRINT *, 'Deallocating memory...'
      call free_cosp_gridbox(gbx)
-      print *, 'free_cosp_gridbox'
+      PRINT *, 'free_cosp_gridbox'
      call free_cosp_subgrid(sgx)
-      print *, 'ffree_cosp_subgrid'
+      PRINT *, 'ffree_cosp_subgrid'
      call free_cosp_vgrid(vgrid)
-      print *, 'free_cosp_vgrid'
+      PRINT *, 'free_cosp_vgrid'
      if (cfg%Lradar_sim) call free_cosp_sgradar(sgradar)
      if (cfg%Lradar_sim) call free_cosp_radarstats(stradar)
@@ -450 +450 @@
      if (cfg%Lmodis_sim) call free_cosp_modis(modis)
      if (cfg%Lrttov_sim) call free_cosp_rttov(rttov)
-     print *, 'End phys_cosp2'
+     PRINT *, 'End phys_cosp2'
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
   ! Time in s. Only for testing purposes
 !  call system_clock(t1,count_rate,count_max)
-!  print *,(t1-t0)*1.0/count_rate
+!  PRINT *,(t1-t0)*1.0/count_rate
  
 end subroutine phys_cosp2