Changeset 10157
- Timestamp:
- 2018-09-25T13:11:52+02:00 (6 years ago)
- Location:
- branches/UKMO/AMM15_v3_6_STABLE_package_FABM/NEMOGCM/NEMO
- Files:
-
- 1 added
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_FABM/NEMOGCM/NEMO/OPA_SRC/DIA/diaharmana.F90
r8059 r10157 659 659 END SUBROUTINE harm_ana_init 660 660 SUBROUTINE harm_ana( kt ) 661 END SUBROUTINE harm_ana _init661 END SUBROUTINE harm_ana 662 662 SUBROUTINE gelim (a,b,x,n) 663 END SUBROUTINE gelim (a,b,x,n)663 END SUBROUTINE gelim 664 664 665 665 #endif -
branches/UKMO/AMM15_v3_6_STABLE_package_FABM/NEMOGCM/NEMO/TOP_SRC/trcbc.F90
r10156 r10157 183 183 ENDIF 184 184 ENDDO 185 ntra_obc = MAX( 1, nb_trcobc ) ! To avoid compilation error with bounds checking186 IF( lwp ) WRITE(numout,*) ' '187 IF( lwp ) WRITE(numout,*) ' Number of passive tracers to be initialized with open boundary data :', nb_trcobc188 IF( lwp ) WRITE(numout,*) ' '189 ntra_sbc = MAX( 1, nb_trcsbc ) ! To avoid compilation error with bounds checking190 IF( lwp ) WRITE(numout,*) ' '191 IF( lwp ) WRITE(numout,*) ' Number of passive tracers to be initialized with surface boundary data :', nb_trcsbc192 IF( lwp ) WRITE(numout,*) ' '193 ntra_cbc = MAX( 1, nb_trccbc ) ! To avoid compilation error with bounds checking194 IF( lwp ) WRITE(numout,*) ' '195 IF( lwp ) WRITE(numout,*) ' Number of passive tracers to be initialized with coastal boundary data :', nb_trccbc196 IF( lwp ) WRITE(numout,*) ' '197 185 198 186 ! Print summmary of Boundary Conditions … … 431 419 ENDIF 432 420 433 ! COASTAL boundary conditions434 IF( nb_trccbc > 0 ) THEN435 if (lwp) write(numout,'(a,i5,a,i5)') ' reading CBC data for ', nb_trccbc ,' variables at step ', kt436 CALL fld_read(kt,1,sf_trccbc)437 ENDIF438 421 ! 439 422 IF( nn_timing == 1 ) CALL timing_stop('trc_bc_read') -
branches/UKMO/AMM15_v3_6_STABLE_package_FABM/NEMOGCM/NEMO/TOP_SRC/trcsub.F90
r8058 r10157 20 20 #endif 21 21 #if defined key_zdfgls 22 USE zdfgls, ONLY: en22 ! USE zdfgls, ONLY: en 23 23 #endif 24 24 USE trabbl
Note: See TracChangeset
for help on using the changeset viewer.