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

Timestamp:

Oct 28, 2024, 1:11:48 PM (9 months ago)

Author:

abarral

Message:

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

File:

• LMDZ6/trunk/libf/phylmd/cosp/cosp_output_write_mod.F90 (modified) (17 diffs)

LMDZ6/trunk/libf/phylmd/cosp/cosp_output_write_mod.F90

@@ -431 +431 @@
 ! 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
@@ -448 +449 @@
     IMPLICIT NONE
 
-    INCLUDE "clesphys.h"
 
     INTEGER                          :: iff
@@ -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'
@@ -499 +499 @@
 
  SUBROUTINE histdef3d_cosp (iff,var,nvertsave,ncols)
+    USE clesphys_mod_h
     USE ioipsl
     USE dimphy
@@ -509 +510 @@
     IMPLICIT NONE
 
-    INCLUDE "clesphys.h"
 
     INTEGER                        :: iff, klevs
@@ -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'
@@ -602 +602 @@
 
  SUBROUTINE histwrite2d_cosp(var,field)
+  USE clesphys_mod_h
   USE dimphy
   USE mod_phys_lmdz_para
@@ -611 +612 @@
 
   IMPLICIT NONE
-  INCLUDE 'clesphys.h'
 
     TYPE(ctrl_outcosp), INTENT(IN) :: var
@@ -628 +628 @@
     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 +640 @@
 !$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) 
@@ -688 +688 @@
 ! AI sept 2013
   SUBROUTINE histwrite3d_cosp(var, field, nverts, ncols)
+  USE clesphys_mod_h
   USE dimphy
   USE mod_phys_lmdz_para
@@ -697 +698 @@
 
   IMPLICIT NONE
-  INCLUDE 'clesphys.h'
 
     TYPE(ctrl_outcosp), INTENT(IN)    :: var
@@ -725 +725 @@
                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 +737 @@
 !$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)                                  
@@ -784 +784 @@
 ! AI sept 2013
   SUBROUTINE histwrite4d_cosp(var, field)
+  USE clesphys_mod_h
   USE dimphy
   USE mod_phys_lmdz_para
@@ -793 +794 @@
 
   IMPLICIT NONE
-  INCLUDE 'clesphys.h'
 
     TYPE(ctrl_outcosp), INTENT(IN)    :: var
@@ -809 +809 @@
 
   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)