Changeset 5087 for LMDZ6/branches/Amaury_dev/tools

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/tools/make_sso/make_sso_SpherePack.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/tools/make_sso/make_sso_SpherePack.f90

@@ -321 +321 @@
 !===============================================================================
     WRITE(*,*)'>> Smoothing large and sub-cell scales fields at '//            &
-             &TRIM(real2str(ffactor*D2/d2r))//' degrees...'
+              TRIM(real2str(ffactor*D2/d2r))//' degrees...'
     CALL spatial_filter_m(dH       ,ffactor*D2,del2)
     CALL spatial_filter_1(hs(:,:,2),ffactor*D2,del2)
@@ -897 +897 @@
   IF(ierr==0) RETURN
   WRITE(*,*)'In routine "'//TRIM(sub)//'": error in the specification of argume&
-      &nt nr. '//TRIM(int2str(ierr))
+       nt nr. '//TRIM(int2str(ierr))
   STOP
 END SUBROUTINE error