Changeset 5133 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp

Timestamp:

Jul 26, 2024, 2:20:54 PM (4 months ago)

Author:

abarral

Message:

Fix 1D, rrtm & ecrad compilation

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp

Files:

• cosp_output_mod.F90 (modified) (2 diffs)
• cosp_output_write_mod.F90 (modified) (14 diffs)
• cosp_read_otputkeys.F90 (modified) (1 diff)
• phys_cosp.F90 (modified) (1 diff)

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

@@ -234 +234 @@
   USE phys_cal_mod
   USE time_phylmdz_mod, ONLY: day_ref, annee_ref, day_ini, start_time, itau_phy
-  USE print_control_mod, ONLY: lunout
+  USE lmdz_print_control, ONLY: lunout
   ! ug Pour les sorties XIOS
   USE wxios
@@ -260 +260 @@
 !!! Variables d'entree
 
-  ! ug Variables utilisées pour récupérer le calendrier pour xios
+  ! ug Variables utilis�es pour r�cup�rer le calendrier pour xios
   INTEGER :: x_an, x_mois, x_jour
   REAL :: x_heure

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

@@ -25 +25 @@
     USE ioipsl
     USE time_phylmdz_mod, ONLY: itau_phy, start_time, day_step_phy
-    USE print_control_mod, ONLY: lunout,prt_level
+    USE lmdz_print_control, ONLY: lunout,prt_level
     USE wxios, only: wxios_closedef
     USE lmdz_xios, only: xios_update_calendar, xios_field_is_active, using_xios
@@ -441 +441 @@
     USE dimphy
     use iophy
-    USE mod_phys_lmdz_para
-    USE mod_grid_phy_lmdz, ONLY: nbp_lon
-    USE print_control_mod, ONLY: lunout,prt_level
+    USE lmdz_phys_para
+    USE lmdz_grid_phy, ONLY: nbp_lon
+    USE lmdz_print_control, ONLY: lunout,prt_level
     USE wxios
 
@@ -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'
@@ -502 +502 @@
     USE dimphy
     use iophy
-    USE mod_phys_lmdz_para
-    USE mod_grid_phy_lmdz, ONLY: nbp_lon
-    USE print_control_mod, ONLY: lunout,prt_level
+    USE lmdz_phys_para
+    USE lmdz_grid_phy, ONLY: nbp_lon
+    USE lmdz_print_control, ONLY: lunout,prt_level
     USE wxios
 
@@ -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'
@@ -603 +603 @@
  SUBROUTINE histwrite2d_cosp(var,field)
   USE dimphy
-  USE mod_phys_lmdz_para
+  USE lmdz_phys_para
   USE ioipsl
   use iophy
-  USE mod_grid_phy_lmdz, ONLY: nbp_lon
-  USE print_control_mod, ONLY: lunout,prt_level
+  USE lmdz_grid_phy, ONLY: nbp_lon
+  USE lmdz_print_control, ONLY: lunout,prt_level
   USE lmdz_xios, only: xios_send_field, using_xios
+  USE lmdz_abort_physic, ONLY: abort_physic
 
   IMPLICIT NONE
@@ -628 +629 @@
     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 +641 @@
 !$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) 
@@ -689 +690 @@
   SUBROUTINE histwrite3d_cosp(var, field, nverts, ncols)
   USE dimphy
-  USE mod_phys_lmdz_para
+  USE lmdz_phys_para
   USE ioipsl
   use iophy
-  USE mod_grid_phy_lmdz, ONLY: nbp_lon
-  USE print_control_mod, ONLY: lunout,prt_level
+  USE lmdz_grid_phy, ONLY: nbp_lon
+  USE lmdz_print_control, ONLY: lunout,prt_level
   USE lmdz_xios, only: xios_send_field, using_xios
+  USE lmdz_abort_physic, ONLY: abort_physic
 
   IMPLICIT NONE
@@ -725 +727 @@
                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 +739 @@
 !$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)                                  
@@ -785 +787 @@
   SUBROUTINE histwrite4d_cosp(var, field)
   USE dimphy
-  USE mod_phys_lmdz_para
+  USE lmdz_phys_para
   USE ioipsl
   use iophy
-  USE mod_grid_phy_lmdz, ONLY: nbp_lon
-  USE print_control_mod, ONLY: lunout,prt_level
+  USE lmdz_grid_phy, ONLY: nbp_lon
+  USE lmdz_print_control, ONLY: lunout,prt_level
   USE lmdz_xios, only: xios_send_field, using_xios
+  USE lmdz_abort_physic, ONLY: abort_physic
 
   IMPLICIT NONE
@@ -809 +812 @@
 
   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)            
@@ -835 +838 @@
     !   en utilisant les routines getin de IOIPSL  
     use ioipsl
-    USE print_control_mod, ONLY: lunout,prt_level
+    USE lmdz_print_control, ONLY: lunout,prt_level
 
     IMPLICIT NONE

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

@@ -15 +15 @@
   USE MOD_COSP_CONSTANTS
   USE MOD_COSP_TYPES
-  USE mod_phys_lmdz_para
+  USE lmdz_phys_para
 
 CONTAINS

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

@@ -77 +77 @@
   USE MOD_COSP_TYPES
   USE MOD_COSP
-  USE mod_phys_lmdz_para
-  USE mod_grid_phy_lmdz
+  USE lmdz_phys_para
+  USE lmdz_grid_phy
   use ioipsl
   use iophy