Changeset 5098 for LMDZ6/branches/Amaury_dev/libf/filtrez/inifgn.F

Timestamp:

Jul 22, 2024, 6:53:44 PM (2 months ago)

Author:

abarral

Message:

Remove CRAY key (obsolete calls to functions that don't exist anymore, bugs in some implementations, irrelevant now)
Replace usage of CPP_XIOS key by using_xios logical
Remove always unused testcpu bits
Replace most uses of CPP_StratAer by the corresponding logical defined in lmdz_cppkeys_wrapper.F90 [this breaks iso compilation because phyiso doesn't define all aerosols - to be fixed later]
Replaces uses of include "yomcst.h" by the lmdz_yomcst.f90 module in .[fF]90 files

File:

• LMDZ6/branches/Amaury_dev/libf/filtrez/inifgn.F (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/filtrez/inifgn.F

@@ -67 +67 @@
       END DO
 c
-#ifdef CRAY
-      CALL MXM(eignfnu,iim,eignfnv,iim,vec ,iim)
-      CALL MXM(eignfnv,iim,eignfnu,iim,vec1,iim)
-#else
       DO j = 1, iim
       DO i = 1, iim
@@ -81 +77 @@
       ENDDO
       ENDDO
-#endif
 
 c