Changeset 2690 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/geo2ocean.F90

Timestamp:

2011-03-15T16:27:46+01:00 (13 years ago)

Author:

gm

Message:

dynamic mem: #785 ; homogeneization of the coding style associated with dyn allocation

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/geo2ocean.F90 (modified) (2 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/geo2ocean.F90

@@ -513 +513 @@
       !!   8.5  !  02-08  (G. Madec)  F90: Free form
       !!----------------------------------------------------------------------
-      !! * Arguments
-      REAL(wp), INTENT( IN   ), DIMENSION(jpi,jpj) ::   &
-         px1, py1          ! two horizontal components to be rotated
-      REAL(wp), INTENT( OUT  ), DIMENSION(jpi,jpj) ::   &
-         px2, py2          ! the two horizontal components in the model repere
-      INTEGER, INTENT( IN ) ::   &
-         kchoix   ! type of transformation
-                  ! = 1 change from geographic to model grid.
-                  ! =-1 change from model to geographic grid
-      CHARACTER(len=1), INTENT( IN ), OPTIONAL ::   cd_type      ! define the nature of pt2d array grid-points
+      REAL(wp), INTENT(in   ), DIMENSION(jpi,jpj) ::   px1, py1   ! two horizontal components to be rotated
+      REAL(wp), INTENT(  out), DIMENSION(jpi,jpj) ::   px2, py2   ! the two horizontal components in the model repere
+      INTEGER , INTENT(in   )                     ::   kchoix     ! type of transformation
+      !                                                           ! = 1 change from geographic to model grid.
+      !                                                           ! =-1 change from model to geographic grid
+      CHARACTER(len=1), INTENT(in   ), OPTIONAL   ::   cd_type    ! define the nature of pt2d array grid-points
       !
       CHARACTER(len=1) ::   cl_type      ! define the nature of pt2d array grid-points (T point by default)
@@ -554 +550 @@
       !!   9.2  !  09-02  (K. Mogensen)
       !!----------------------------------------------------------------------
-      REAL(wp), DIMENSION(jpi,jpj), INTENT( OUT )::   &
-         & psinu, pcosu, psinv, pcosv! copy of data
+      REAL(wp), DIMENSION(jpi,jpj), INTENT( OUT )::   psinu, pcosu, psinv, pcosv   ! copy of data
       !!----------------------------------------------------------------------