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 9578 – NEMO

Changeset 9578


Ignore:
Timestamp:
2018-05-14T15:49:14+02:00 (6 years ago)
Author:
stephenhaddad
Message:

Added implicit none statements to branch.

Location:
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC
Files:
17 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn.F90

    r9563 r9578  
    150150CONTAINS 
    151151   SUBROUTINE bdy_dyn( kt )      ! Empty routine 
     152   IMPLICIT NONE 
    152153      INTEGER, INTENT( in )           :: kt               ! Main time step counter 
    153154      WRITE(*,*) 'bdy_dyn: You should not have seen this print! error?', kt 

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn3d.F90

    r9563 r9578  
    309309CONTAINS 
    310310   SUBROUTINE bdy_dyn3d( kt )      ! Empty routine 
     311   IMPLICIT NONE 
    311312    INTEGER, INTENT( in ) :: kt     ! Main time step counter 
    312313    WRITE(*,*) 'bdy_dyn3d: You should not have seen this print! error?', kt 

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

    r9563 r9578  
    611611CONTAINS 
    612612   SUBROUTINE bdytide_init             ! Empty routine 
     613   IMPLICIT NONE 
    613614      WRITE(*,*) 'bdytide_init: You should not have seen this print! error?' 
    614615   END SUBROUTINE bdytide_init 
    615616   SUBROUTINE bdytide_update( kt, jit )   ! Empty routine 
     617   IMPLICIT NONE 
    616618      INTEGER, INTENT( in )            ::   kt          ! Main timestep counter 
    617619      INTEGER,INTENT(in),OPTIONAL      ::   jit         ! Barotropic timestep counter (for timesplitting option) 
    … …  
    619621   END SUBROUTINE bdytide_update 
    620622   SUBROUTINE bdy_dta_tides( kt, kit, time_offset )     ! Empty routine 
     623   IMPLICIT NONE 
    621624      INTEGER, INTENT( in )            ::   kt          ! Dummy argument empty routine       
    622625      INTEGER, INTENT( in ),OPTIONAL   ::   kit         ! Dummy argument empty routine 

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY/bdytra.F90

    r9563 r9578  
    319319CONTAINS 
    320320   SUBROUTINE bdy_tra(kt)      ! Empty routine 
     321   IMPLICIT NONE 
    321322      INTEGER, INTENT( in ) :: kt     ! Main time step counter    
    322323      WRITE(*,*) 'bdy_tra: You should not have seen this print! error?', kt 
    … …  
    324325 
    325326   SUBROUTINE bdy_tra_dmp(kt)      ! Empty routine 
     327   IMPLICIT NONE 
    326328      INTEGER, INTENT( in ) :: kt     ! Main time step counter    
    327329      WRITE(*,*) 'bdy_tra_dmp: You should not have seen this print! error?', kt 

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY/bdyvol.F90

    r9563 r9578  
    178178CONTAINS 
    179179   SUBROUTINE bdy_vol( kt )        ! Empty routine 
     180   IMPLICIT NONE 
    180181      INTEGER, INTENT( in ) ::   kt   ! ocean time-step index 
    181182      WRITE(*,*) 'bdy_vol: You should not have seen this print! error?', kt 

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/C1D/dyncor_c1d.F90

    r9563 r9578  
    116116CONTAINS 
    117117   SUBROUTINE cor_c1d              ! Empty routine 
     118   IMPLICIT NONE 
    118119   END SUBROUTINE cor_c1d    
     120    
    119121   SUBROUTINE dyn_cor_c1d ( kt )      ! Empty routine 
     122   IMPLICIT NONE 
    120123      INTEGER, INTENT( in ) ::   kt   ! ocean time-step index    
    121124      WRITE(*,*) 'dyn_cor_c1d: You should not have seen this print! error?', kt 

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/C1D/step_c1d.F90

    r9563 r9578  
    166166CONTAINS 
    167167   SUBROUTINE stp_c1d ( kstp )      ! dummy routine 
     168   IMPLICIT NONE 
    168169   INTEGER, INTENT(in) ::   kstp   ! ocean time-step index 
    169170      WRITE(*,*) 'stp_c1d: You should not have seen this print! error?', kstp 

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

    r9563 r9578  
    13021302 
    13031303   SUBROUTINE dia_dct_init          ! Dummy routine 
     1304   IMPLICIT NONE 
    13041305      WRITE(*,*) 'dia_dct_init: You should not have seen this print! error?' 
    13051306   END SUBROUTINE dia_dct_init 
    13061307 
    13071308   SUBROUTINE dia_dct( kt )         ! Dummy routine 
     1309   IMPLICIT NONE 
    13081310      INTEGER, INTENT( in ) :: kt   ! ocean time-step index 
    13091311      WRITE(*,*) 'dia_dct: You should not have seen this print! error?', kt 

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/DIA/diahth.F90

    r9563 r9578  
    343343CONTAINS 
    344344   SUBROUTINE dia_hth( kt )         ! Empty routine 
     345   IMPLICIT NONE 
    345346    INTEGER, INTENT( in ) ::   kt      ! ocean time-step index 
    346347    WRITE(*,*) 'dia_hth: You should not have seen this print! error?', kt 

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_exp.F90

    r9563 r9578  
    107107CONTAINS 
    108108   SUBROUTINE dyn_spg_exp( kt )       ! Empty routine 
     109   IMPLICIT NONE 
    109110      INTEGER, INTENT(in)  ::   kt   ! ocean time-step index   
    110111      WRITE(*,*) 'dyn_spg_exp: You should not have seen this print! error?', kt 

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/FLO/floats.F90

    r9563 r9578  
    146146CONTAINS 
    147147   SUBROUTINE flo_stp( kt )          ! Empty routine 
     148   IMPLICIT NONE 
    148149      INTEGER, INTENT( in  ) ::   kt   ! ocean time step    
    149150      WRITE(*,*) 'flo_stp: You should not have seen this print! error?', kt 

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_smag.F90

    r9563 r9578  
    294294CONTAINS 
    295295   SUBROUTINE ldf_dyn_smag( kt )       ! Empty routine 
     296   IMPLICIT NONE 
    296297      INTEGER :: kt                    ! timestep    
    297298      WRITE(*,*) 'ldf_dyn_smag: You should not have seen this print! error? check keys ldf:c3d+smag', kt 

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_smag.F90

    r9563 r9578  
    204204CONTAINS 
    205205   SUBROUTINE ldf_tra_smag( kt )       ! Empty routine 
     206   IMPLICIT NONE 
    206207        INTEGER, INTENT( in ) ::   kt  ! ocean time-step inedx 
    207208        WRITE(*,*) 'ldf_dyn_smag: You should not have seen this print! error? check keys ldf:c3d+smag', kt 

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r9563 r9578  
    648648CONTAINS 
    649649   SUBROUTINE sbc_ice_lim ( kt, kblk )     ! Dummy routine 
     650   IMPLICIT NONE 
    650651      INTEGER, INTENT(in) ::   kt      ! ocean time step 
    651652      INTEGER, INTENT(in) ::   kblk    ! type of bulk (=3 CLIO, =4 CORE, =5 COUPLED) 
    … …  
    653654   END SUBROUTINE sbc_ice_lim 
    654655   SUBROUTINE sbc_lim_init                 ! Dummy routine 
     656   IMPLICIT NONE 
    655657   END SUBROUTINE sbc_lim_init 
    656658#endif 

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r9563 r9578  
    12311231CONTAINS 
    12321232   SUBROUTINE zdf_gls_init           ! Empty routine 
     1233   IMPLICIT NONE 
    12331234      WRITE(*,*) 'zdf_gls_init: You should not have seen this print! error?' 
    12341235   END SUBROUTINE zdf_gls_init 
     1236    
    12351237   SUBROUTINE zdf_gls( kt )          ! Empty routine 
     1238   IMPLICIT NONE 
    12361239      INTEGER, INTENT(in) ::   kt ! ocean time step    
    12371240      WRITE(*,*) 'zdf_gls: You should not have seen this print! error?', kt 
    12381241   END SUBROUTINE zdf_gls 
     1242    
    12391243   SUBROUTINE gls_rst( kt, cdrw )          ! Empty routine 
     1244   IMPLICIT NONE 
    12401245      INTEGER         , INTENT(in) ::   kt         ! ocean time-step 
    12411246      CHARACTER(len=*), INTENT(in) ::   cdrw       ! "READ"/"WRITE" flag 

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r9563 r9578  
    15761576CONTAINS 
    15771577   SUBROUTINE zdf_kpp_init           ! Dummy routine 
     1578   IMPLICIT NONE 
    15781579      WRITE(*,*) 'zdf_kpp_init: You should not have seen this print! error?' 
    15791580   END SUBROUTINE zdf_kpp_init 
    15801581   SUBROUTINE zdf_kpp( kt )          ! Dummy routine 
     1582   IMPLICIT NONE 
    15811583      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
    15821584      WRITE(*,*) 'zdf_kpp: You should not have seen this print! error?', kt 
    15831585   END SUBROUTINE zdf_kpp 
    15841586   SUBROUTINE tra_kpp( kt )          ! Dummy routine 
     1587   IMPLICIT NONE 
    15851588      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
    15861589      WRITE(*,*) 'tra_kpp: You should not have seen this print! error?', kt 
    15871590   END SUBROUTINE tra_kpp 
    15881591   SUBROUTINE trc_kpp( kt )          ! Dummy routine 
     1592   IMPLICIT NONE 
    15891593      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
    15901594      WRITE(*,*) 'trc_kpp: You should not have seen this print! error?', kt 

  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

    r9563 r9578  
    307307CONTAINS 
    308308   SUBROUTINE zdf_ric_init         ! Dummy routine 
     309   IMPLICIT NONE 
    309310   END SUBROUTINE zdf_ric_init 
    310311   SUBROUTINE zdf_ric( kt )        ! Dummy routine 
     312   IMPLICIT NONE 
    311313      INTEGER, INTENT( in ) ::   kt                           ! ocean time-step 
    312314      WRITE(*,*) 'zdf_ric: You should not have seen this print! error?', kt 
Note: See TracChangeset for help on using the changeset viewer.