Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/phylmd/surf_ocean_mod.F90

Timestamp:

Jul 20, 2024, 12:00:23 PM (4 months ago)

Author:

abarral

Message:

remove fixed-form ^{\s+& remaining in .f90,.F90}

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/surf_ocean_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/surf_ocean_mod.F90

@@ -23 +23 @@
        dt_ds, tkt, tks, taur, sss &
 #ifdef ISO
-        &       ,xtprecip_rain, xtprecip_snow,xtspechum,Roce, &
-        &       xtsnow,xtevap,h1 &
+         ,xtprecip_rain, xtprecip_snow,xtspechum,Roce, &
+         xtsnow,xtevap,h1 &
 #endif               
-        &       )
+         )
 
     use albedo, only: alboc, alboc_cd
@@ -184 +184 @@
       IF (iso_eau > 0) THEN         
         CALL iso_verif_egalite_choix(xtspechum(iso_eau,i), &
-     &          spechum(i),'surf_ocean_mod 117', &
-     &          errmax,errmaxrel)          
+            spechum(i),'surf_ocean_mod 117', &
+            errmax,errmaxrel)
         CALL iso_verif_egalite_choix(xtsnow(iso_eau,i), &
-     &          snow(i),'surf_ocean_mod 127', &
-     &          errmax,errmaxrel) 
+            snow(i),'surf_ocean_mod 127', &
+            errmax,errmaxrel)
       ENDIF !IF (iso_eau > 0) then
     ENDDO !DO i=1,klon