Changeset 5084 for LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

Timestamp:

Jul 19, 2024, 6:40:44 PM (2 months ago)

Author:

Laurent Fairhead

Message:

Reverting to r4065. Updating fortran standard broke too much stuff. Will do it by smaller chunks
AB, LF

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -48 +48 @@
     USE mod_phys_lmdz_para
     USE netcdf95, only: nf95_close
-    USE lmdz_netcdf, only: nf90_fill_real     ! IM for NMC files
+    USE netcdf, only: nf90_fill_real     ! IM for NMC files
     USE open_climoz_m, only: open_climoz ! ozone climatology from a file
     USE ozonecm_m, only: ozonecm ! ozone of J.-F. Royer
@@ -1355 +1355 @@
     !lwoff=y : offset LW CRE for radiation code and other schemes
     REAL, SAVE :: betalwoff 
-    !$OMP THREADPRIVATE(betalwoff)
+    !OMP THREADPRIVATE(betalwoff)
 !
     INTEGER :: nbtr_tmp ! Number of tracer inside concvl