Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/misc/wxios.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/misc/wxios.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/misc/wxios.F90

@@ -759 +759 @@
 !        CALL xios_update_calendar(ito)
 !    END SUBROUTINE wxios_update_calendar
-!    
+
 !    SUBROUTINE wxios_write_2D(fieldname, fdata)
 !        CHARACTER(len=*), INTENT(IN) :: fieldname
 !        REAL, DIMENSION(:,:), INTENT(IN) :: fdata
-!
+
 !        CALL xios_send_field(fieldname, fdata)
 !    END SUBROUTINE wxios_write_2D
@@ -770 +770 @@
 !        CHARACTER(len=*), INTENT(IN) :: fieldname
 !        REAL, DIMENSION(:,:,:), INTENT(IN) :: fdata
-!        
+
 !        CALL xios_send_field(fieldname, fdata)
 !    END SUBROUTINE wxios_write_3D