Changeset 9563
- Timestamp:
- 2018-05-08T15:48:00+02:00 (7 years ago)
- 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 150 150 CONTAINS 151 151 SUBROUTINE bdy_dyn( kt ) ! Empty routine 152 INTEGER, INTENT( in ) :: kt ! Main time step counter 152 153 WRITE(*,*) 'bdy_dyn: You should not have seen this print! error?', kt 153 154 END SUBROUTINE bdy_dyn -
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn3d.F90
r6486 r9563 309 309 CONTAINS 310 310 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 312 313 END SUBROUTINE bdy_dyn3d 313 314 314 315 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 316 318 END SUBROUTINE bdy_dyn3d_dmp 317 319 -
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90
r6487 r9563 614 614 END SUBROUTINE bdytide_init 615 615 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) 616 618 WRITE(*,*) 'bdytide_update: You should not have seen this print! error?', kt, jit 617 619 END SUBROUTINE bdytide_update … … 620 622 INTEGER, INTENT( in ),OPTIONAL :: kit ! Dummy argument empty routine 621 623 INTEGER, INTENT( in ),OPTIONAL :: time_offset ! Dummy argument empty routine 622 WRITE(*,*) 'bdy_dta_tides: You should not have seen this print! error?', kt, jit624 WRITE(*,*) 'bdy_dta_tides: You should not have seen this print! error?', kt, kit 623 625 END SUBROUTINE bdy_dta_tides 624 626 #endif -
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY/bdytra.F90
r6486 r9563 319 319 CONTAINS 320 320 SUBROUTINE bdy_tra(kt) ! Empty routine 321 INTEGER, INTENT( in ) :: kt ! Main time step counter 321 322 WRITE(*,*) 'bdy_tra: You should not have seen this print! error?', kt 322 323 END SUBROUTINE bdy_tra 323 324 324 325 SUBROUTINE bdy_tra_dmp(kt) ! Empty routine 326 INTEGER, INTENT( in ) :: kt ! Main time step counter 325 327 WRITE(*,*) 'bdy_tra_dmp: You should not have seen this print! error?', kt 326 328 END SUBROUTINE bdy_tra_dmp -
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY/bdyvol.F90
r6487 r9563 178 178 CONTAINS 179 179 SUBROUTINE bdy_vol( kt ) ! Empty routine 180 INTEGER, INTENT( in ) :: kt ! ocean time-step index 180 181 WRITE(*,*) 'bdy_vol: You should not have seen this print! error?', kt 181 182 END SUBROUTINE bdy_vol -
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/C1D/dyncor_c1d.F90
r6486 r9563 118 118 END SUBROUTINE cor_c1d 119 119 SUBROUTINE dyn_cor_c1d ( kt ) ! Empty routine 120 INTEGER, INTENT( in ) :: kt ! ocean time-step index 120 121 WRITE(*,*) 'dyn_cor_c1d: You should not have seen this print! error?', kt 121 122 END SUBROUTINE dyn_cor_c1d -
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/C1D/step_c1d.F90
r6486 r9563 165 165 !!---------------------------------------------------------------------- 166 166 CONTAINS 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 169 170 END SUBROUTINE stp_c1d 170 171 #endif -
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90
r6486 r9563 1302 1302 1303 1303 SUBROUTINE dia_dct_init ! Dummy routine 1304 WRITE(*,*) 'dia_dct_init: You should not have seen this print! error?' , kt1304 WRITE(*,*) 'dia_dct_init: You should not have seen this print! error?' 1305 1305 END SUBROUTINE dia_dct_init 1306 1306 -
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/DIA/diahth.F90
r6486 r9563 343 343 CONTAINS 344 344 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 346 347 END SUBROUTINE dia_hth 347 348 #endif -
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_exp.F90
r6486 r9563 107 107 CONTAINS 108 108 SUBROUTINE dyn_spg_exp( kt ) ! Empty routine 109 INTEGER, INTENT(in) :: kt ! ocean time-step index 109 110 WRITE(*,*) 'dyn_spg_exp: You should not have seen this print! error?', kt 110 111 END SUBROUTINE dyn_spg_exp -
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/FLO/floats.F90
r6486 r9563 146 146 CONTAINS 147 147 SUBROUTINE flo_stp( kt ) ! Empty routine 148 INTEGER, INTENT( in ) :: kt ! ocean time step 148 149 WRITE(*,*) 'flo_stp: You should not have seen this print! error?', kt 149 150 END SUBROUTINE flo_stp -
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_smag.F90
r6486 r9563 294 294 CONTAINS 295 295 SUBROUTINE ldf_dyn_smag( kt ) ! Empty routine 296 INTEGER :: kt ! timestep 296 297 WRITE(*,*) 'ldf_dyn_smag: You should not have seen this print! error? check keys ldf:c3d+smag', kt 297 298 END SUBROUTINE ldf_dyn_smag -
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_smag.F90
r6486 r9563 204 204 CONTAINS 205 205 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 207 208 END SUBROUTINE ldf_tra_smag 208 209 #endif -
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r6498 r9563 648 648 CONTAINS 649 649 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) 650 652 WRITE(*,*) 'sbc_ice_lim: You should not have seen this print! error?', kt, kblk 651 653 END SUBROUTINE sbc_ice_lim -
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r9321 r9563 1234 1234 END SUBROUTINE zdf_gls_init 1235 1235 SUBROUTINE zdf_gls( kt ) ! Empty routine 1236 INTEGER, INTENT(in) :: kt ! ocean time step 1236 1237 WRITE(*,*) 'zdf_gls: You should not have seen this print! error?', kt 1237 1238 END SUBROUTINE zdf_gls -
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r6486 r9563 1579 1579 END SUBROUTINE zdf_kpp_init 1580 1580 SUBROUTINE zdf_kpp( kt ) ! Dummy routine 1581 INTEGER, INTENT( in ) :: kt ! ocean time step 1581 1582 WRITE(*,*) 'zdf_kpp: You should not have seen this print! error?', kt 1582 1583 END SUBROUTINE zdf_kpp 1583 1584 SUBROUTINE tra_kpp( kt ) ! Dummy routine 1585 INTEGER, INTENT( in ) :: kt ! ocean time step 1584 1586 WRITE(*,*) 'tra_kpp: You should not have seen this print! error?', kt 1585 1587 END SUBROUTINE tra_kpp 1586 1588 SUBROUTINE trc_kpp( kt ) ! Dummy routine 1589 INTEGER, INTENT( in ) :: kt ! ocean time step 1587 1590 WRITE(*,*) 'trc_kpp: You should not have seen this print! error?', kt 1588 1591 END SUBROUTINE trc_kpp -
branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90
r6486 r9563 309 309 END SUBROUTINE zdf_ric_init 310 310 SUBROUTINE zdf_ric( kt ) ! Dummy routine 311 INTEGER, INTENT( in ) :: kt ! ocean time-step 311 312 WRITE(*,*) 'zdf_ric: You should not have seen this print! error?', kt 312 313 END SUBROUTINE zdf_ric
Note: See TracChangeset
for help on using the changeset viewer.