Changeset 5328

Timestamp:

Nov 15, 2024, 10:40:14 AM (4 weeks ago)

Author:

abarral

Message:

Remove (likely) obsolete and wrong code in abort_gcm_NOMODULE.f90

File:

• LMDZ6/trunk/libf/misc/lmdz_cosp_wrappers.F90 (modified) (1 diff)

LMDZ6/trunk/libf/misc/lmdz_cosp_wrappers.F90

@@ -84 +84 @@
 
 #endif
+
+#ifndef COSPV2
+
+subroutine lmdz_cosp_interface(itap, dtime, freq_cosp, ok_mensuelCOSP, ok_journeCOSP, &
+        ok_hfCOSP, ecrit_mth, ecrit_day, ecrit_hf, ok_all_xml, &
+        missing_val, Nptslmdz, Nlevlmdz, lon, lat, presnivs, &
+        overlaplmdz, sunlit, ref_liq, ref_ice, fracTerLic, &
+        u_wind, v_wind, phis, phi, ph, p, skt, t, sh, rh, &
+        tca, cca, mr_lsliq, mr_lsice, fl_lsrainI, fl_lssnowI, &
+        fl_ccrainI, fl_ccsnowI, mr_ozone, dtau_s, dem_s)
+
+  integer                       :: Nptslmdz, Nlevlmdz   ! Nb de points issus de physiq.F
+  real          :: ecrit_day, ecrit_hf, ecrit_mth, missing_val
+  logical       :: ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, ok_all_xml
+  integer                                    :: overlaplmdz   ! overlap type: 1=max,
+                                                              ! 2=rand, 3=max/rand
+  real, dimension(Nptslmdz,Nlevlmdz)         :: phi, p, ph, T, sh, rh, tca, cca, mr_lsliq,   &
+                                                mr_lsice, mr_ccliq, mr_ccice, fl_lsrain,     &
+                                                fl_lssnow, fl_ccrain, fl_ccsnow, fl_lsgrpl,  &
+                                                zlev, zlev_half, mr_ozone, radliq, radice,   &
+                                                dtau_s, dem_s, dtau_c, dem_c, ref_liq, ref_ice
+  real, dimension(Nptslmdz,Nlevlmdz)         :: fl_lsrainI, fl_lssnowI, fl_ccrainI, fl_ccsnowI
+  real, dimension(Nptslmdz)                  :: lon, lat, skt, fracTerLic, u_wind, v_wind, &
+                                                phis, sunlit
+  real, dimension(Nptslmdz)                  :: land ! variables intermediaire pour masque TerLic
+  real, dimension(Nlevlmdz)                  :: presnivs
+  integer                                    :: itap, k, ip
+  real                                       :: dtime, freq_cosp
+  real, dimension(2)                         :: time_bnds
+
+  double precision                           :: d_dtime
+  double precision, dimension(2)             :: d_time_bnds
+
+
+  CALL lmdz_cosp_wrapper_abort
+
+end subroutine lmdz_cosp_interface
+
+#endif