Changeset 418


Ignore:
Timestamp:
2006-03-21T09:26:27+01:00 (15 years ago)
Author:
opalod
Message:

nemo_v1_compil_012 : CT : remove missing declaration or warning compilation

Location:
trunk/NEMO/OPA_SRC
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DOM/domhgr.F90

    r392 r418  
    110110         zlam1, zcos_alpha, zim1 , zjm1 , ze1, ze1deg,   & 
    111111         zphi1, zsin_alpha, zim05, zjm05 
    112           
    113          real,dimension(:,:),pointer :: ffparent 
    114112      !!---------------------------------------------------------------------- 
    115113 
  • trunk/NEMO/OPA_SRC/DOM/dommsk.F90

    r367 r418  
    501501      !!---------------------------------------------------------------------- 
    502502      !! *Local declarations 
    503       INTEGER  :: ji, jj, jk, ii    ! dummy loop indices 
     503      INTEGER  :: ji, jj, jk, ii, jl ! dummy loop indices 
    504504      INTEGER ::   ine, inw, ins, inn, itest, ierror, iind, ijnd 
    505505      INTEGER, DIMENSION(jpi*jpj*jpk,3) ::  icoord 
  • trunk/NEMO/OPA_SRC/DYN/dynvor.F90

    r258 r418  
    676676      !!---------------------------------------------------------------------- 
    677677      !! * Local declarations 
    678       INTEGER ::   ioptio = 0      ! temporary integer 
     678      INTEGER ::   ioptio          ! temporary integer 
    679679 
    680680      NAMELIST/nam_dynvor/ ln_dynvor_ens, ln_dynvor_ene, ln_dynvor_mix, ln_dynvor_een 
     
    700700      ENDIF 
    701701 
     702      ioptio = 0 
     703 
    702704      IF( ln_dynvor_ens ) THEN 
    703705         IF(lwp) WRITE(numout,*) 
  • trunk/NEMO/OPA_SRC/OBC/obcdta.F90

    r389 r418  
    8484      REAL(wp) ::   zxy 
    8585      !! * Ajouts FD 
    86       INTEGER ::  iyrel              ! number of years since 1992 
    8786      INTEGER ::  isrel              ! number of seconds since 1/1/1992 
    8887      INTEGER, SAVE ::  itobce, itobcw,  & ! number of time steps in OBC files 
    8988                        itobcs, itobcn     !    "       "       "       " 
    9089      INTEGER ::  ikprint        ! frequency for printouts. 
    91       INTEGER :: fid_e, fid_w, fid_n, fid_s, fid  ! file identifiers 
     90      INTEGER :: fid_e, fid_w, fid_n, fid_s       ! file identifiers 
    9291      LOGICAL :: l_exv 
    93       INTEGER, DIMENSION(flio_max_dims) ::    & 
    94             f_d  ,             & ! dimensions lenght 
    95             start,             & ! starting index read 
    96             count                ! number of indices to be read 
     92      INTEGER, DIMENSION(flio_max_dims) ::   f_d  ! dimensions lenght 
    9793      
    98       CHARACTER(LEN=25) :: f_name,v_name 
     94      CHARACTER(LEN=25) :: v_name 
    9995      !!-------------------------------------------------------------------- 
    10096 
     
    11881184      INTEGER, INTENT( in ) ::   kbt         ! barotropic ocean time-step index 
    11891185      WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', kt 
     1186      WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', kbt 
    11901187   END SUBROUTINE obc_dta_bt 
    11911188#endif 
     
    12761273     INTEGER, INTENT (in) :: kt, jn 
    12771274     WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', kt 
     1275     WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', jn 
    12781276   END SUBROUTINE obc_dta_bt 
    12791277#endif 
  • trunk/NEMO/OPA_SRC/TRA/tradmp.F90

    r392 r418  
    4242 
    4343   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   & 
    44       strdmp        ! damping salinity trend (psu/s) 
     44      strdmp,              &  ! damping salinity trend (psu/s) 
     45      resto                   ! restoring coeff. on T and S (s-1) 
    4546 
    4647   !! * Module variables 
     
    5354      bdmp   =  360.,      &  ! bottom time scale for internal damping (days) 
    5455      hdmp   =  800.          ! depth of transition between sdmp and bdmp (meters) 
    55  
    56    REAL(wp), DIMENSION(jpi,jpj,jpk) ::   & 
    57       resto         ! restoring coeff. on T and S (s-1) 
    5856 
    5957   !! * Substitutions 
Note: See TracChangeset for help on using the changeset viewer.