Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/phylmd/surf_land_bucket_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_land_bucket_mod.F90 (modified) (8 diffs)

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

@@ -130 +130 @@
           IF (iso_eau > 0) THEN
             CALL iso_verif_egalite_choix(precip_snow(i), &
-     &                                   xtprecip_snow(iso_eau,i),'surf_land_bucket 131', &
-     &                                   errmax,errmaxrel)
+                                     xtprecip_snow(iso_eau,i),'surf_land_bucket 131', &
+                                     errmax,errmaxrel)
             CALL iso_verif_egalite_choix(qsol(i), &
-     &                                   xtsol(iso_eau,i),'surf_land_bucket 134', &
-     &                                   errmax,errmaxrel)
+                                     xtsol(iso_eau,i),'surf_land_bucket 134', &
+                                     errmax,errmaxrel)
           ENDIF
         ENDDO
@@ -171 +171 @@
     IF (soil_model) THEN
        CALL soil(dtime, is_ter, knon, snow, tsurf, qsol,  & 
-        & longitude(knindex(1:knon)), latitude(knindex(1:knon)), tsoil, soilcap, soilflux)
+   longitude(knindex(1:knon)), latitude(knindex(1:knon)), tsoil, soilcap, soilflux)
 
        DO i=1, knon
@@ -204 +204 @@
       IF (iso_eau > 0) THEN
         CALL iso_verif_egalite_choix(xtsnow(iso_eau,i), &
-     &           snow(i),'surf_land_bucket 522', &
-     &           errmax,errmaxrel) 
+             snow(i),'surf_land_bucket 522', &
+             errmax,errmaxrel)
       ENDIF !IF (iso_eau > 0) then
     ENDDO !DO i=1,knon 
@@ -229 +229 @@
       IF (iso_eau > 0) THEN
         CALL iso_verif_egalite(qsol_prec(i),xtsol_prec(iso_eau,i), &
-    &                              'surf_land_bucket 141')
+                                'surf_land_bucket 141')
       ENDIF
     ENDDO !DO i=1,knon
@@ -241 +241 @@
          snow, qsol, tsurf_new, evap &
 #ifdef ISO    
-     & ,fq_fonte_diag,fqfonte_diag,snow_evap_diag,fqcalving_diag   &
-     & ,max_eau_sol_diag,runoff_diag,run_off_lic_diag,coeff_rel_diag   &
-#endif
-     &   )
+   ,fq_fonte_diag,fqfonte_diag,snow_evap_diag,fqcalving_diag   &
+   ,max_eau_sol_diag,runoff_diag,run_off_lic_diag,coeff_rel_diag   &
+#endif
+     )
 
 #ifdef ISO
@@ -259 +259 @@
           IF (iso_eau > 0) THEN
             CALL iso_verif_egalite_choix(qsol_prec(i), &
-     &                                   xtsol_prec(iso_eau,i),'surf_land_bucket 628', &
-     &                                   errmax,errmaxrel)
+                                     xtsol_prec(iso_eau,i),'surf_land_bucket 628', &
+                                     errmax,errmaxrel)
             CALL iso_verif_egalite_choix(precip_snow(i), &
-     &                                   xtprecip_snow(iso_eau,i),'surf_land_bucket 227', &
-     &                                   errmax,errmaxrel)
+                                     xtprecip_snow(iso_eau,i),'surf_land_bucket 227', &
+                                     errmax,errmaxrel)
              ! attention, dans fonte_neige, on modifie snow sans modifier
              ! xtsnow
@@ -270 +270 @@
 !            write(*,*) 'snow(i)=',snow(i)
             CALL iso_verif_egalite_choix(xtsnow(iso_eau,i), &
-     &                                   snow_prec(i),'surf_land_bucket 245', &
-     &                                   errmax,errmaxrel) 
+                                     snow_prec(i),'surf_land_bucket 245', &
+                                     errmax,errmaxrel)
           ENDIF  
           IF ((iso_O17 > 0).AND.(iso_O18 > 0)) THEN
               IF (qsol_prec(i) > ridicule_qsol) THEN
                 CALL iso_verif_aberrant_o17(xtsol_prec(iso_O17,i)/qsol_prec(i) &
-     &                                     ,xtsol_prec(iso_O18,i)/qsol_prec(i) &
-     &                                     ,'surf_land_bucket 642')
+                                       ,xtsol_prec(iso_O18,i)/qsol_prec(i) &
+                                       ,'surf_land_bucket 642')
               ENDIF !IF ((qsol_prec(i) > ridicule_qsol) &
           ENDIF !IF ((iso_O17 > 0).AND.(iso_O18 > 0)) THEN
@@ -285 +285 @@
 #endif          
         CALL calcul_iso_surf_ter_vectall(klon,knon, &
-     &           evap,snow_evap_diag,snow, &
-     &           fq_fonte_diag,fqfonte_diag,dtime,precip_rain,xtprecip_rain, &
-     &           precip_snow,xtprecip_snow, snow_prec,xtsnow_prec, &
-     &           tsurf_new,xtspechum,pref,spechum,t_coup,u1_lay,v1_lay,p1lay, &
-     &           qsol,xtsol,qsol_prec,xtsol_prec, &
-     &           max_eau_sol_diag, &
-     &           xtevap,xtsnow,h1,runoff_diag,xtrunoff_diag,fqcalving_diag, &
-     &           knindex,is_ter,run_off_lic_diag,coeff_rel_diag,Rland_ice &
-     &   )
+             evap,snow_evap_diag,snow, &
+             fq_fonte_diag,fqfonte_diag,dtime,precip_rain,xtprecip_rain, &
+             precip_snow,xtprecip_snow, snow_prec,xtsnow_prec, &
+             tsurf_new,xtspechum,pref,spechum,t_coup,u1_lay,v1_lay,p1lay, &
+             qsol,xtsol,qsol_prec,xtsol_prec, &
+             max_eau_sol_diag, &
+             xtevap,xtsnow,h1,runoff_diag,xtrunoff_diag,fqcalving_diag, &
+             knindex,is_ter,run_off_lic_diag,coeff_rel_diag,Rland_ice &
+     )
 !#ifdef ISOVERIF
 !        write(*,*) 'surf_land_bucket 303'