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

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 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_sno_albedo.f90 (modified) (2 diffs)

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

@@ -61 +61 @@
 
 
-  use VARphy
-  use VAR_SV
-  use VARdSV
-  use VARxSV
-  use VARySV
-  use VARtSV
+  USE VARphy
+  USE VAR_SV
+  USE VARdSV
+  USE VARxSV
+  USE VARySV
+  USE VARtSV
   USE surface_data, ONLY: iflag_albcalc,correc_alb
 
@@ -464 +464 @@
     ! prescription for each time step with NEMO values
 
-  ! #AO      if (LSmask(ikl) .eq. 0 .and. coupling_ao .eq. .TRUE.) THEN
-  ! #AO       if (AOmask(ikl) .eq. 0) THEN
+  ! #AO      if (LSmask(ikl) .EQ. 0 .AND. coupling_ao .EQ. .TRUE.) THEN
+  ! #AO       if (AOmask(ikl) .EQ. 0) THEN
   ! #AO       albisv(ikl) =  (1.-AOmask(ikl))* albAOsisv(ikl)
   ! #AO.                    +(AOmask(ikl)*albisv(ikl))