Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat

Timestamp:

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

Author:

abarral

Message:

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

Location:

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd

Files:

• etat0dyn_netcdf.F90 (modified) (4 diffs)
• init_ssrf_m.F90 (modified) (1 diff)
• limit_netcdf.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

@@ -122 +122 @@
   CALL startget_dyn3d('u'   ,rlonu,rlatu,pls,y ,uvent,rlonv,rlatv)
   CALL startget_dyn3d('v'   ,rlonv,rlatv,pls(:,:jjm,:),y(:,:jjm,:),vvent,      &
- &                           rlonu,rlatu(:jjm))
+                             rlonu,rlatu(:jjm))
   CALL startget_dyn3d('t'   ,rlonv,rlatu,pls,y ,t3d ,rlonu,rlatv)
   tpot(:,:,:)=t3d(:,:,:)
@@ -228 +228 @@
 !-------------------------------------------------------------------------------
   iml=assert_eq([SIZE(lon_in),SIZE(pls,1),SIZE(workvar,1),SIZE(champ,1),       &
-     &                                    SIZE(lon_in2)], TRIM(modname)//" iml")
+                                          SIZE(lon_in2)], TRIM(modname)//" iml")
   jml=assert_eq( SIZE(lat_in),SIZE(pls,2),SIZE(workvar,2),SIZE(champ,2),       &
-     &                                                    TRIM(modname)//" jml")
+                                                          TRIM(modname)//" jml")
   lml=assert_eq(              SIZE(pls,3),SIZE(workvar,3),SIZE(champ,3),       &
-     &                                                    TRIM(modname)//" lml")
+                                                          TRIM(modname)//" lml")
   jml2=SIZE(lat_in2)
 
@@ -306 +306 @@
 !-------------------------------------------------------------------------------
   iml=assert_eq(SIZE(lon_in),SIZE(zs,1),SIZE(psol,1),SIZE(lon_in2),            &
-      &                                              TRIM(modname)//" iml")
+                                                     TRIM(modname)//" iml")
   jml=assert_eq(SIZE(lat_in),SIZE(zs,2),SIZE(psol,2),TRIM(modname)//" jml")
   jml2=SIZE(lat_in2)
@@ -333 +333 @@
 !--- PSOL IS COMPUTED IN PASCALS
   psol(:iml-1,:) = ps(:iml-1,:)*(1.0+(z(:iml-1,:)-zs(:iml-1,:))/287.0          &
-     &            /ts(:iml-1,:))
+                  /ts(:iml-1,:))
   psol(iml,:)=psol(1,:)
   DEALLOCATE(z,ps,ts)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/init_ssrf_m.F90

@@ -68 +68 @@
      ALLOCATE(fraclic(iml_lic,jml_lic))
      CALL flinopen(icefname, .FALSE., iml_lic, jml_lic, llm_tmp,  &
-          &               lon_lic, lat_lic, lev, ttm_tmp, itaul, date, dt, fid)
+                          lon_lic, lat_lic, lev, ttm_tmp, itaul, date, dt, fid)
      CALL flinget(fid, icevar, iml_lic, jml_lic, llm_tmp, ttm_tmp, 1,1, fraclic)
      CALL flinclo(fid)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

@@ -422 +422 @@
     END SELECT
     CALL msg(0,'WARNING: missing "calendar" attribute for "time" in '&
-     &//TRIM(fnam)//'. Choosing default value.')
+      //TRIM(fnam)//'. Choosing default value.')
   END IF
   CALL strclean(cal_in)                     !--- REMOVE (WEIRD) NULL CHARACTERS