Changeset 9563


Ignore:
Timestamp:
2018-05-08T15:48:00+02:00 (2 years ago)
Author:
stephenhaddad
Message:

MOCI #310: Update GO6 package branch to build with rigorous optimisation level compiler option.

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

    r6486 r9563  
    150150CONTAINS 
    151151   SUBROUTINE bdy_dyn( kt )      ! Empty routine 
     152      INTEGER, INTENT( in )           :: kt               ! Main time step counter 
    152153      WRITE(*,*) 'bdy_dyn: You should not have seen this print! error?', kt 
    153154   END SUBROUTINE bdy_dyn 
  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn3d.F90

    r6486 r9563  
    309309CONTAINS 
    310310   SUBROUTINE bdy_dyn3d( kt )      ! Empty routine 
    311       WRITE(*,*) 'bdy_dyn3d: You should not have seen this print! error?', kt 
     311    INTEGER, INTENT( in ) :: kt     ! Main time step counter 
     312    WRITE(*,*) 'bdy_dyn3d: You should not have seen this print! error?', kt 
    312313   END SUBROUTINE bdy_dyn3d 
    313314 
    314315   SUBROUTINE bdy_dyn3d_dmp( kt )      ! Empty routine 
    315       WRITE(*,*) 'bdy_dyn3d_dmp: You should not have seen this print! error?', kt 
     316    INTEGER, INTENT( in ) :: kt     ! Main time step counter 
     317    WRITE(*,*) 'bdy_dyn3d_dmp: You should not have seen this print! error?', kt 
    316318   END SUBROUTINE bdy_dyn3d_dmp 
    317319 
  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

    r6487 r9563  
    614614   END SUBROUTINE bdytide_init 
    615615   SUBROUTINE bdytide_update( kt, jit )   ! Empty routine 
     616      INTEGER, INTENT( in )            ::   kt          ! Main timestep counter 
     617      INTEGER,INTENT(in),OPTIONAL      ::   jit         ! Barotropic timestep counter (for timesplitting option) 
    616618      WRITE(*,*) 'bdytide_update: You should not have seen this print! error?', kt, jit 
    617619   END SUBROUTINE bdytide_update 
     
    620622      INTEGER, INTENT( in ),OPTIONAL   ::   kit         ! Dummy argument empty routine 
    621623      INTEGER, INTENT( in ),OPTIONAL   ::   time_offset ! Dummy argument empty routine 
    622       WRITE(*,*) 'bdy_dta_tides: You should not have seen this print! error?', kt, jit 
     624      WRITE(*,*) 'bdy_dta_tides: You should not have seen this print! error?', kt, kit 
    623625   END SUBROUTINE bdy_dta_tides 
    624626#endif 
  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY/bdytra.F90

    r6486 r9563  
    319319CONTAINS 
    320320   SUBROUTINE bdy_tra(kt)      ! Empty routine 
     321      INTEGER, INTENT( in ) :: kt     ! Main time step counter    
    321322      WRITE(*,*) 'bdy_tra: You should not have seen this print! error?', kt 
    322323   END SUBROUTINE bdy_tra 
    323324 
    324325   SUBROUTINE bdy_tra_dmp(kt)      ! Empty routine 
     326      INTEGER, INTENT( in ) :: kt     ! Main time step counter    
    325327      WRITE(*,*) 'bdy_tra_dmp: You should not have seen this print! error?', kt 
    326328   END SUBROUTINE bdy_tra_dmp 
  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY/bdyvol.F90

    r6487 r9563  
    178178CONTAINS 
    179179   SUBROUTINE bdy_vol( kt )        ! Empty routine 
     180      INTEGER, INTENT( in ) ::   kt   ! ocean time-step index 
    180181      WRITE(*,*) 'bdy_vol: You should not have seen this print! error?', kt 
    181182   END SUBROUTINE bdy_vol 
  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/C1D/dyncor_c1d.F90

    r6486 r9563  
    118118   END SUBROUTINE cor_c1d    
    119119   SUBROUTINE dyn_cor_c1d ( kt )      ! Empty routine 
     120      INTEGER, INTENT( in ) ::   kt   ! ocean time-step index    
    120121      WRITE(*,*) 'dyn_cor_c1d: You should not have seen this print! error?', kt 
    121122   END SUBROUTINE dyn_cor_c1d 
  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/C1D/step_c1d.F90

    r6486 r9563  
    165165   !!---------------------------------------------------------------------- 
    166166CONTAINS 
    167    SUBROUTINE stp_c1d ( kt )      ! dummy routine 
    168       WRITE(*,*) 'stp_c1d: You should not have seen this print! error?', kt 
     167   SUBROUTINE stp_c1d ( kstp )      ! dummy routine 
     168   INTEGER, INTENT(in) ::   kstp   ! ocean time-step index 
     169      WRITE(*,*) 'stp_c1d: You should not have seen this print! error?', kstp 
    169170   END SUBROUTINE stp_c1d 
    170171#endif 
  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

    r6486 r9563  
    13021302 
    13031303   SUBROUTINE dia_dct_init          ! Dummy routine 
    1304       WRITE(*,*) 'dia_dct_init: You should not have seen this print! error?', kt 
     1304      WRITE(*,*) 'dia_dct_init: You should not have seen this print! error?' 
    13051305   END SUBROUTINE dia_dct_init 
    13061306 
  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/DIA/diahth.F90

    r6486 r9563  
    343343CONTAINS 
    344344   SUBROUTINE dia_hth( kt )         ! Empty routine 
    345       WRITE(*,*) 'dia_hth: You should not have seen this print! error?', kt 
     345    INTEGER, INTENT( in ) ::   kt      ! ocean time-step index 
     346    WRITE(*,*) 'dia_hth: You should not have seen this print! error?', kt 
    346347   END SUBROUTINE dia_hth 
    347348#endif 
  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_exp.F90

    r6486 r9563  
    107107CONTAINS 
    108108   SUBROUTINE dyn_spg_exp( kt )       ! Empty routine 
     109      INTEGER, INTENT(in)  ::   kt   ! ocean time-step index   
    109110      WRITE(*,*) 'dyn_spg_exp: You should not have seen this print! error?', kt 
    110111   END SUBROUTINE dyn_spg_exp 
  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/FLO/floats.F90

    r6486 r9563  
    146146CONTAINS 
    147147   SUBROUTINE flo_stp( kt )          ! Empty routine 
     148      INTEGER, INTENT( in  ) ::   kt   ! ocean time step    
    148149      WRITE(*,*) 'flo_stp: You should not have seen this print! error?', kt 
    149150   END SUBROUTINE flo_stp 
  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_smag.F90

    r6486 r9563  
    294294CONTAINS 
    295295   SUBROUTINE ldf_dyn_smag( kt )       ! Empty routine 
     296      INTEGER :: kt                    ! timestep    
    296297      WRITE(*,*) 'ldf_dyn_smag: You should not have seen this print! error? check keys ldf:c3d+smag', kt 
    297298   END SUBROUTINE ldf_dyn_smag 
  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_smag.F90

    r6486 r9563  
    204204CONTAINS 
    205205   SUBROUTINE ldf_tra_smag( kt )       ! Empty routine 
    206       WRITE(*,*) 'ldf_dyn_smag: You should not have seen this print! error? check keys ldf:c3d+smag', kt 
     206        INTEGER, INTENT( in ) ::   kt  ! ocean time-step inedx 
     207        WRITE(*,*) 'ldf_dyn_smag: You should not have seen this print! error? check keys ldf:c3d+smag', kt 
    207208   END SUBROUTINE ldf_tra_smag 
    208209#endif 
  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r6498 r9563  
    648648CONTAINS 
    649649   SUBROUTINE sbc_ice_lim ( kt, kblk )     ! Dummy routine 
     650      INTEGER, INTENT(in) ::   kt      ! ocean time step 
     651      INTEGER, INTENT(in) ::   kblk    ! type of bulk (=3 CLIO, =4 CORE, =5 COUPLED) 
    650652      WRITE(*,*) 'sbc_ice_lim: You should not have seen this print! error?', kt, kblk 
    651653   END SUBROUTINE sbc_ice_lim 
  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r9321 r9563  
    12341234   END SUBROUTINE zdf_gls_init 
    12351235   SUBROUTINE zdf_gls( kt )          ! Empty routine 
     1236      INTEGER, INTENT(in) ::   kt ! ocean time step    
    12361237      WRITE(*,*) 'zdf_gls: You should not have seen this print! error?', kt 
    12371238   END SUBROUTINE zdf_gls 
  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r6486 r9563  
    15791579   END SUBROUTINE zdf_kpp_init 
    15801580   SUBROUTINE zdf_kpp( kt )          ! Dummy routine 
     1581      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
    15811582      WRITE(*,*) 'zdf_kpp: You should not have seen this print! error?', kt 
    15821583   END SUBROUTINE zdf_kpp 
    15831584   SUBROUTINE tra_kpp( kt )          ! Dummy routine 
     1585      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
    15841586      WRITE(*,*) 'tra_kpp: You should not have seen this print! error?', kt 
    15851587   END SUBROUTINE tra_kpp 
    15861588   SUBROUTINE trc_kpp( kt )          ! Dummy routine 
     1589      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
    15871590      WRITE(*,*) 'trc_kpp: You should not have seen this print! error?', kt 
    15881591   END SUBROUTINE trc_kpp 
  • branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

    r6486 r9563  
    309309   END SUBROUTINE zdf_ric_init 
    310310   SUBROUTINE zdf_ric( kt )        ! Dummy routine 
     311      INTEGER, INTENT( in ) ::   kt                           ! ocean time-step 
    311312      WRITE(*,*) 'zdf_ric: You should not have seen this print! error?', kt 
    312313   END SUBROUTINE zdf_ric 
Note: See TracChangeset for help on using the changeset viewer.