- Timestamp:
- 2011-02-26T11:34:33+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90
r2616 r2617 28 28 PUBLIC zdf_bfr ! called by step.F90 29 29 PUBLIC zdf_bfr_init ! called by opa.F90 30 PUBLIC zdf_bfr_alloc ! called by nemogcm.F9031 30 32 31 ! !!* Namelist nambfr: bottom friction namelist * … … 39 38 40 39 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: bfrcoef2d ! 2D bottom drag coefficient 41 ! Now initialised in zdf_bfr_alloc() 40 42 41 !! * Substitutions 43 42 # include "vectopt_loop_substitute.h90" … … 155 154 IF(lwp) WRITE(numout,*) ' Namelist nam_bfr : set bottom friction parameters' 156 155 156 ! ! allocate zdfbfr arrays 157 IF( zdf_bfr_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'zdf_bfr_init : unable to allocate arrays' ) 158 157 159 SELECT CASE (nn_bfr) 158 160 ! 159 161 CASE( 0 ) 160 162 IF(lwp) WRITE(numout,*) ' free-slip '
Note: See TracChangeset
for help on using the changeset viewer.