Changeset 5267 for LMDZ6/trunk/libf/dyn3d_common/writedynav.F90

Timestamp:

Oct 23, 2024, 5:34:46 PM (43 hours ago)

Author:

abarral

Message:

Remove CPP_IOIPSL cpp keys uses

File:

• LMDZ6/trunk/libf/dyn3d_common/writedynav.F90 (modified) (5 diffs)

LMDZ6/trunk/libf/dyn3d_common/writedynav.F90

@@ -3 +3 @@
 subroutine writedynav(time, vcov, ucov, teta, ppk, phi, q, masse, ps, phis)
 
-#ifdef CPP_IOIPSL
   USE ioipsl
-#endif
   USE infotrac, ONLY : nqtot
   use com_io_dyn_mod, only : histaveid, histvaveid, histuaveid
@@ -46 +44 @@
   integer time
 
-#ifdef CPP_IOIPSL
   ! This routine needs IOIPSL to work
   !   Variables locales
@@ -53 +50 @@
   INTEGER iq, ii, ll
   real tm(ip1jmp1*llm)
-  REAL vnat(ip1jm, llm), unat(ip1jmp1, llm) 
+  REAL vnat(ip1jm, llm), unat(ip1jmp1, llm)
   logical ok_sync
   integer itau_w
@@ -75 +72 @@
   !  Appels a histwrite pour l'ecriture des variables a sauvegarder
 
-  !  Vents U 
+  !  Vents U
 
   call histwrite(histuaveid, 'u', itau_w, unat,  &
@@ -129 +126 @@
   ENDIF
 
-#else
-  write(lunout, *) "writedynav: Warning this routine should not be", &
-       " used without ioipsl"
-#endif
-  ! of #ifdef CPP_IOIPSL
+
+
 
 end subroutine writedynav