Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_tso.f90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_tso.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_tso.f90

@@ -71 +71 @@
   ! +  ================
 
-  use VARphy
-  use VAR_SV
-  use VARdSV
-  use VARxSV
-  use VARySV
-  use VARtSV
-  use VAR0SV
+  USE VARphy
+  USE VAR_SV
+  USE VARdSV
+  USE VARxSV
+  USE VARySV
+  USE VARtSV
+  USE VAR0SV
 
 
@@ -615 +615 @@
       TsisSV(ikl,isl)   = Aux__Q(ikl,isl)  *TsisSV(ikl,isl+1) &
             +TsisSV(ikl,isl)
-      IF(isl==0.and.isnoSV(ikl)==0) THEN
+      IF(isl==0.AND.isnoSV(ikl)==0) THEN
        TsisSV(ikl,isl)  = min(TaT_SV(ikl)+30,TsisSV(ikl,isl))
        TsisSV(ikl,isl)  = max(TaT_SV(ikl)-30,TsisSV(ikl,isl))