ecWAM: add ifdef to pre-expanded yowfield_mod.F90

ecmwf-ifs · Feb 27, 2024 · 9b8ea07 · 9b8ea07
1 parent 80d256b
commit 9b8ea07
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/src/ecwam/yowfield_mod.F90 b/src/ecwam/yowfield_mod.F90
@@ -121,6 +121,7 @@ MODULE YOWFIELD_MOD
           REAL(KIND=JWRO), DIMENSION(:), POINTER :: NEMOVSTOKES=>NULL()
           REAL(KIND=JWRO), DIMENSION(:), POINTER :: NEMOSTRN=>NULL()
           REAL(KIND=JWRO), DIMENSION(:), POINTER :: NEMOWSWAVE=>NULL()
+#ifdef PARKIND1_SINGLE_NEMO
           CLASS(FIELD_2RM), POINTER :: F_NSWH=>NULL()
           CLASS(FIELD_2RM), POINTER :: F_NMWP=>NULL()
           CLASS(FIELD_2RM), POINTER :: F_NPHIEPS=>NULL()
@@ -132,6 +133,19 @@ MODULE YOWFIELD_MOD
           CLASS(FIELD_2RM), POINTER :: F_NEMOVSTOKES=>NULL()
           CLASS(FIELD_2RM), POINTER :: F_NEMOSTRN=>NULL()
           CLASS(FIELD_2RM), POINTER :: F_NEMOWSWAVE=>NULL()
+#else
+          CLASS(FIELD_2RD), POINTER :: F_NSWH=>NULL()
+          CLASS(FIELD_2RD), POINTER :: F_NMWP=>NULL()
+          CLASS(FIELD_2RD), POINTER :: F_NPHIEPS=>NULL()
+          CLASS(FIELD_2RD), POINTER :: F_NEMOPHIF=>NULL()
+          CLASS(FIELD_2RD), POINTER :: F_NTAUOC=>NULL()
+          CLASS(FIELD_2RD), POINTER :: F_NEMOTAUX=>NULL()
+          CLASS(FIELD_2RD), POINTER :: F_NEMOTAUY=>NULL()
+          CLASS(FIELD_2RD), POINTER :: F_NEMOUSTOKES=>NULL()
+          CLASS(FIELD_2RD), POINTER :: F_NEMOVSTOKES=>NULL()
+          CLASS(FIELD_2RD), POINTER :: F_NEMOSTRN=>NULL()
+          CLASS(FIELD_2RD), POINTER :: F_NEMOWSWAVE=>NULL()
+#endif
       CONTAINS
          PROCEDURE :: INIT => WAVE2OCEAN_FIELD_INIT
          PROCEDURE :: UPDATE_VIEW => WAVE2OCEAN_UPDATE_VIEW