Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.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/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90 (modified) (4 diffs)

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)