Changeset 5282 for LMDZ6/trunk/libf/phylmd/cospv2

Timestamp:

Oct 28, 2024, 1:11:48 PM (5 weeks ago)

Author:

abarral

Message:

Turn iniprint.h clesphys.h into modules
Remove unused description.h

File:

• LMDZ6/trunk/libf/phylmd/cospv2/lmdz_cosp_output_write_mod.f90 (modified) (17 diffs)

LMDZ6/trunk/libf/phylmd/cospv2/lmdz_cosp_output_write_mod.f90

@@ -644 +644 @@
 ! ug Routine pour definir itau_iocosp depuis cosp_output_write_mod:
   SUBROUTINE set_itau_iocosp(ito)
-      IMPLICIT NONE
+      USE clesphys_mod_h
+    IMPLICIT NONE
       INTEGER, INTENT(IN) :: ito
       itau_iocosp = ito
@@ -661 +662 @@
     IMPLICIT NONE
 
-    INCLUDE "clesphys.h"
 
     INTEGER                          :: iff
@@ -669 +669 @@
     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'
@@ -704 +704 @@
 
  SUBROUTINE histdef3d_cosp (iff,var,nvertsave,ncols)
+    USE clesphys_mod_h
     USE ioipsl
     USE dimphy
@@ -716 +717 @@
     IMPLICIT NONE
 
-    INCLUDE "clesphys.h"
 
     INTEGER                        :: iff, klevs
@@ -765 +765 @@
       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'
@@ -800 +800 @@
 
  SUBROUTINE histwrite2d_cosp(var,field)
+  USE clesphys_mod_h
   USE dimphy
   USE mod_phys_lmdz_para
@@ -810 +811 @@
 
   IMPLICIT NONE
-  INCLUDE 'clesphys.h'
 
     TYPE(ctrl_outcosp), INTENT(IN) :: var
@@ -827 +827 @@
     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
       print*,'var, cosp_varsdefined dans cosp_varsdefined ',var%name, cosp_varsdefined
-      !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
@@ -840 +840 @@
 !$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) 
@@ -882 +882 @@
 ! AI sept 2013
   SUBROUTINE histwrite3d_cosp(var, field, nverts, ncols)
+  USE clesphys_mod_h
   USE dimphy
   USE mod_phys_lmdz_para
@@ -893 +894 @@
 
   IMPLICIT NONE
-  INCLUDE 'clesphys.h'
 
     TYPE(ctrl_outcosp), INTENT(IN)    :: var
@@ -921 +921 @@
                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)
@@ -933 +933 @@
 !$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)                                  
@@ -973 +973 @@
 ! AI sept 2013
   SUBROUTINE histwrite4d_cosp(var, field)
+  USE clesphys_mod_h
   USE dimphy
   USE mod_phys_lmdz_para
@@ -984 +985 @@
 
   IMPLICIT NONE
-  INCLUDE 'clesphys.h'
 
     TYPE(ctrl_outcosp), INTENT(IN)    :: var
@@ -1000 +1000 @@
 
   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)