Changeset 5267 for LMDZ6/trunk/libf/dyn3d/leapfrog.F90

Timestamp:

Oct 23, 2024, 5:34:46 PM (2 days ago)

Author:

abarral

Message:

Remove CPP_IOIPSL cpp keys uses

File:

• LMDZ6/trunk/libf/dyn3d/leapfrog.F90 (modified) (11 diffs)

LMDZ6/trunk/libf/dyn3d/leapfrog.F90

@@ -8 +8 @@
 
   !IM : pour sortir les param. du modele dans un fis. netcdf 110106
-#ifdef CPP_IOIPSL
   use IOIPSL
-#endif
   USE infotrac, ONLY: nqtot, isoCheck
   USE guide_mod, ONLY : guide_main
@@ -241 +239 @@
   call check_isotopes_seq(q,ip1jmp1,'leapfrog 321')
 
-#ifdef CPP_IOIPSL
   if (ok_guide) then
     call guide_main(itau,ucov,vcov,teta,q,masse,ps)
   endif
-#endif
+
 
 
@@ -355 +352 @@
   !maf stokage du flux de masse pour traceurs OFF-LINE
 
-#ifdef CPP_IOIPSL
        CALL fluxstokenc(pbaru,pbarv,masse,teta,phi,phis, &
              dtvr, itau)
-#endif
+
 
 
@@ -451 +447 @@
      ENDIF ! of IF (ip_ebil_dyn.ge.1 )
   !-jld
-#ifdef CPP_IOIPSL
+
   !IM decommenter les 6 lignes suivantes pour sortir quelques parametres dynamiques de LMDZ
   !IM uncomment next 6 lines to get some parameters for LMDZ dynamics
@@ -460 +456 @@
   !
   !#include "write_paramLMDZ_dyn.h"
-  !
-#endif
-  ! #endif of #ifdef CPP_IOIPSL
+
 IF (CPPKEY_PHYS) THEN
      CALL calfis( lafin , jD_cur, jH_cur, &
@@ -675 +669 @@
 
            IF (ok_dynzon) THEN
-#ifdef CPP_IOIPSL
              CALL bilan_dyn(2,dtvr*iperiod,dtvr*day_step*periodav, &
                    ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
-#endif
+
            END IF
            IF (ok_dyn_ave) THEN
-#ifdef CPP_IOIPSL
              CALL writedynav(itau,vcov, &
                    ucov,teta,pk,phi,q,masse,ps,phis)
-#endif
+
            ENDIF
 
@@ -704 +696 @@
             vnat(:,l)=vcov(:,l)/cv(:)
           enddo
-#ifdef CPP_IOIPSL
           if (ok_dyn_ins) then
             ! write(lunout,*) "leapfrog: call writehist, itau=",itau
@@ -714 +705 @@
            !  call WriteField('masse',reshape(masse,(/iip1,jmp1,llm/)))
           endif ! of if (ok_dyn_ins)
-#endif
+
   ! For some Grads outputs of fields
           if (output_grads_dyn) then
@@ -812 +803 @@
 
            IF (ok_dynzon) THEN
-#ifdef CPP_IOIPSL
              CALL bilan_dyn(2,dtvr*iperiod,dtvr*day_step*periodav, &
                    ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
-#endif
+
            ENDIF
            IF (ok_dyn_ave) THEN
-#ifdef CPP_IOIPSL
              CALL writedynav(itau,vcov, &
                    ucov,teta,pk,phi,q,masse,ps,phis)
-#endif
+
            ENDIF
 
@@ -834 +823 @@
               vnat(:,l)=vcov(:,l)/cv(:)
             enddo
-#ifdef CPP_IOIPSL
           if (ok_dyn_ins) then
              ! write(lunout,*) "leapfrog: call writehist (b)",
@@ -840 +828 @@
             CALL writehist(itau,vcov,ucov,teta,phi,q,masse,ps,phis)
           endif ! of if (ok_dyn_ins)
-#endif
+
   ! For some Grads outputs
             if (output_grads_dyn) then