New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 14650 – NEMO

Changeset 14650


Ignore:
Timestamp:
2021-03-26T18:42:25+01:00 (3 years ago)
Author:
sparonuz
Message:

Added missing INTENT(IN) specifications

Location:
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/ICB/icbutl.F90

    r14644 r14650  
    749749      !! 
    750750      !!---------------------------------------------------------------------- 
    751       CHARACTER(len=*)      :: cd_label 
    752       INTEGER               :: kt             ! timestep number 
     751      CHARACTER(len=*), INTENT(IN) :: cd_label 
     752      INTEGER         , INTENT(IN) :: kt             ! timestep number 
    753753      !  
    754754      INTEGER                :: ibergs, inbergs 

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/diaobs.F90

    r14219 r14650  
    898898      !! * Arguments 
    899899      REAL(KIND=dp), INTENT(OUT) :: ddobs                        ! Date in YYYYMMDD.HHMMSS 
    900       INTEGER :: kstp 
     900      INTEGER, INTENT(IN) :: kstp 
    901901 
    902902      !! * Local declarations 

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/obs_fbm.F90

    r10068 r14650  
    15401540      !!---------------------------------------------------------------------- 
    15411541      !! * Arguments 
    1542       INTEGER :: idfile                    ! File netcdf id. 
    1543       INTEGER :: idvar                     ! Variable netcdf id. 
    1544       CHARACTER(len=*) :: cdlongname       ! Long name for variable 
    1545       CHARACTER(len=*), OPTIONAL :: cdunits       ! Units for variable 
    1546       CHARACTER(len=*), OPTIONAL :: cfillvalue    ! Fill value for character variables 
    1547       INTEGER, OPTIONAL :: ifillvalue             ! Fill value for integer variables 
    1548       REAL(kind=fbsp), OPTIONAL :: rfillvalue     ! Fill value for real variables 
    1549       CHARACTER(len=*), OPTIONAL :: conventions   ! Conventions for variable 
     1542      INTEGER , INTENT(IN) :: idfile                    ! File netcdf id. 
     1543      INTEGER , INTENT(IN) :: idvar                     ! Variable netcdf id. 
     1544      CHARACTER(len=*) , INTENT(IN) :: cdlongname       ! Long name for variable 
     1545      CHARACTER(len=*), OPTIONAL , INTENT(IN) :: cdunits       ! Units for variable 
     1546      CHARACTER(len=*), OPTIONAL , INTENT(IN) :: cfillvalue    ! Fill value for character variables 
     1547      INTEGER, OPTIONAL , INTENT(IN) :: ifillvalue             ! Fill value for integer variables 
     1548      REAL(kind=fbsp), OPTIONAL , INTENT(IN) :: rfillvalue     ! Fill value for real variables 
     1549      CHARACTER(len=*), OPTIONAL, INTENT(IN) :: conventions   ! Conventions for variable 
    15501550      !! * Local variables 
    15511551      CHARACTER(LEN=18), PARAMETER :: & 
    … …  
    16101610      !!---------------------------------------------------------------------- 
    16111611      !! * Arguments 
    1612       CHARACTER(len=*) :: cdfilename  ! Input filename 
     1612      CHARACTER(len=*), INTENT(IN) :: cdfilename  ! Input filename 
    16131613      TYPE(obfbdata)   :: fbdata      ! obsfbdata structure 
    1614       LOGICAL, OPTIONAL :: ldgrid     ! Allow forcing of grid info 
     1614      LOGICAL, OPTIONAL, INTENT(IN) :: ldgrid     ! Allow forcing of grid info 
    16151615      !! * Local variables 
    16161616      CHARACTER(LEN=14), PARAMETER :: cpname = 'read_obfbdata' 

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/obs_grid.F90

    r14644 r14650  
    122122         & kobsj, &                 ! J-index of observations  
    123123         & kproc                    ! Processor number of observations 
    124       CHARACTER(LEN=1) :: & 
     124      CHARACTER(LEN=1) , INTENT(IN) :: & 
    125125         & cdgrid                   ! Grid to search 
    126126 

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/obs_mpp.F90

    r14644 r14650  
    352352      INTEGER                   , INTENT(in) :: knoin 
    353353      INTEGER                   , INTENT(in) :: knoout 
    354       INTEGER, DIMENSION(jpnij)                 ::   kinv, koutv 
     354      INTEGER, DIMENSION(jpnij) , INTENT(in) ::   kinv, koutv 
    355355      INTEGER, DIMENSION(knoin) , INTENT(in   ) ::   kvalsin 
    356356      INTEGER, DIMENSION(knoout), INTENT(  out) ::   kvalsout 
    … …  
    404404      INTEGER                    , INTENT(in   ) :: knoin 
    405405      INTEGER                    , INTENT(in   ) :: knoout 
    406       INTEGER , DIMENSION(jpnij)                 ::   kinv, koutv 
     406      INTEGER , DIMENSION(jpnij) , INTENT(in   ) ::   kinv, koutv 
    407407      REAL(wp), DIMENSION(knoin) , INTENT(in   ) ::   pvalsin 
    408408      REAL(wp), DIMENSION(knoout), INTENT(  out) ::   pvalsout 

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/obs_profiles_def.F90

    r10068 r14650  
    564564      TYPE(obs_prof), INTENT(IN)    :: prof      ! Original profile 
    565565      TYPE(obs_prof), INTENT(INOUT) :: newprof   ! New profile with the copy of the data 
    566       LOGICAL :: lallocate                ! Allocate newprof data 
     566      LOGICAL,INTENT(IN) :: lallocate                ! Allocate newprof data 
    567567      INTEGER,INTENT(IN) :: kumout        ! Fortran unit for messages 
    568568      TYPE(obs_prof_valid), OPTIONAL, INTENT(in) :: & 
    … …  
    805805      TYPE(obs_prof),INTENT(INOUT) :: prof      ! Updated profile data 
    806806      TYPE(obs_prof),INTENT(INOUT) :: oldprof   ! Original profile data 
    807       LOGICAL :: ldeallocate         ! Deallocate the updated data of insertion 
     807      LOGICAL,INTENT(in) :: ldeallocate         ! Deallocate the updated data of insertion 
    808808      INTEGER,INTENT(in) :: kumout   ! Output unit 
    809809       

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/obs_surf_def.F90

    r10068 r14650  
    334334      TYPE(obs_surf), INTENT(IN)    :: surf      ! Original surface data 
    335335      TYPE(obs_surf), INTENT(INOUT) :: newsurf   ! New surface data with a subset of the original data 
    336       LOGICAL :: lallocate     ! Allocate newsurf data 
     336      LOGICAL,INTENT(IN) :: lallocate     ! Allocate newsurf data 
    337337      INTEGER,INTENT(IN) :: kumout        ! Fortran unit for messages 
    338338      LOGICAL, OPTIONAL, INTENT(in), DIMENSION(:) :: & 
    … …  
    463463      TYPE(obs_surf),INTENT(INOUT) :: surf       ! Updated surface data 
    464464      TYPE(obs_surf),INTENT(INOUT) :: oldsurf    ! Original surface data 
    465       LOGICAL :: ldeallocate ! Deallocate the updated data of insertion 
     465      LOGICAL,INTENT(IN) :: ldeallocate ! Deallocate the updated data of insertion 
    466466      INTEGER,INTENT(in) :: kumout      ! Output unit 
    467467       

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/obs_utils.F90

    r14644 r14650  
    6868 
    6969      !! * Arguments 
    70       INTEGER :: kstatus 
    71       INTEGER :: klineno 
    72       CHARACTER(LEN=*) :: cd_name 
     70      INTEGER          , INTENT(IN):: kstatus 
     71      INTEGER          , INTENT(IN):: klineno 
     72      CHARACTER(LEN=*) , INTENT(IN):: cd_name 
    7373       
    7474      !! * Local declarations 
    … …  
    167167 
    168168      !! * Arguments 
    169       INTEGER :: klineno 
    170       CHARACTER(LEN=*) :: cd_name 
     169      INTEGER          , INTENT(IN):: klineno 
     170      CHARACTER(LEN=*) , INTENT(IN):: cd_name 
    171171      !! * Local declarations 
    172172      CHARACTER(len=200) :: clineno 
    … …  
    194194 
    195195      !! * Arguments 
    196       INTEGER :: klineno 
    197       CHARACTER(LEN=*) :: cd_name 
    198       !! * Local declarations 
    199       CHARACTER(len=200) :: clineno 
     196      INTEGER           , INTENT(IN)  :: klineno 
     197      CHARACTER(LEN=*)  , INTENT(IN)  :: cd_name 
     198      !! * Local declarations 
     199      CHARACTER(len=200)  :: clineno 
    200200 
    201201      WRITE(clineno,'(A,I8)')' at line number ', klineno 

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/ZDF/zdfosm.F90

    r14644 r14650  
    15461546     !!---------------------------------------------------------------------- 
    15471547 
    1548         INTEGER, DIMENSION(jpi,jpj) :: jnlev_av  ! Number of levels to average over. 
    1549         INTEGER, DIMENSION(jpi,jpj) :: jp_ext 
     1548        INTEGER, DIMENSION(jpi,jpj) , INTENT(IN) :: jnlev_av  ! Number of levels to average over. 
     1549        INTEGER, DIMENSION(jpi,jpj) , INTENT(IN) :: jp_ext 
    15501550 
    15511551        ! Alan: do we need zb? 
    … …  
    17451745     !!---------------------------------------------------------------------- 
    17461746 
    1747      INTEGER, DIMENSION(jpi,jpj)  :: jbase 
     1747     INTEGER, DIMENSION(jpi,jpj), INTENT(IN)  :: jbase 
    17481748     REAL(wp), DIMENSION(jpi,jpj) :: zdtdz, zdsdz, zdbdz   ! External gradients of temperature, salinity and buoyancy. 
    17491749 
Note: See TracChangeset for help on using the changeset viewer.