Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/misc/vampir.F90

Timestamp:

Jul 23, 2024, 3:29:36 PM (3 months ago)

Author:

abarral

Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

File:

• LMDZ6/branches/Amaury_dev/libf/misc/vampir.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/misc/vampir.F90

@@ -15 +15 @@
 contains
 
-  subroutine InitVampir
+  SUBROUTINE InitVampir
     implicit none
 
@@ -47 +47 @@
     ierr = MPE_Describe_state( MPE_begin(VTinca), MPE_end(VTinca),"inca", "LightBlue" )
 #endif     
-  end subroutine InitVampir
+  END SUBROUTINE  InitVampir
 
-  subroutine VTb(number)
+  SUBROUTINE VTb(number)
     implicit none
     INTEGER :: number
@@ -64 +64 @@
 #endif
 
-  end subroutine VTb
+  END SUBROUTINE  VTb
 
-  subroutine VTe(number)
+  SUBROUTINE VTe(number)
     implicit none
     INTEGER :: Number
@@ -82 +82 @@
 #endif
 
-  end subroutine VTe
+  END SUBROUTINE  VTe
   
 end module Vampir