Changeset 5084 for LMDZ6/trunk/libf/phylmd/create_etat0_unstruct_mod.F90

Timestamp:

Jul 19, 2024, 6:40:44 PM (4 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/phylmd/create_etat0_unstruct_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/create_etat0_unstruct_mod.F90

@@ -23 +23 @@
   SUBROUTINE init_create_etat0_unstruct
   USE lmdz_xios
-  USE lmdz_netcdf, ONLY: NF90_NOWRITE,nf90_close,nf90_noerr,nf90_open
+  USE netcdf
   USE mod_phys_lmdz_para
   IMPLICIT NONE
@@ -126 +126 @@
       CALL xios_recv_field("qs",qsol_mpi)
       CALL xios_recv_field("mask",zmasq_mpi)
-      IF (landice_opt < 2) CALL xios_recv_field("landice",lic_mpi)
+      IF (landice_opt .LT. 2) CALL xios_recv_field("landice",lic_mpi)
     ENDIF
     CALL scatter_omp(tsol_mpi,tsol)
     CALL scatter_omp(qsol_mpi,qsol)
     CALL scatter_omp(zmasq_mpi,zmasq)
-    IF (landice_opt < 2) CALL scatter_omp(lic_mpi,lic)
+    IF (landice_opt .LT. 2) CALL scatter_omp(lic_mpi,lic)
 
     radsol(:)   = 0.0
@@ -143 +143 @@
 
     pctsrf(:,:) = 0
-    IF (landice_opt < 2) THEN
+    IF (landice_opt .LT. 2) THEN
        pctsrf(:,is_lic)=lic
        WHERE(pctsrf(:,is_lic)<EPSFRA) pctsrf(:,is_lic)=0.
@@ -180 +180 @@
   !--- The ocean and sea-ice fractions are not changed.
   !--- This option is only available if landice_opt<2.   
-  IF (landice_opt < 2) THEN
+  IF (landice_opt .LT. 2) THEN
      no_ter_antartique=.FALSE.
      CALL getin_p('no_ter_antartique',no_ter_antartique)