Changeset 4620 for branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM
- Timestamp:
- 2014-04-08T16:54:46+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn.F90
r4596 r4620 187 187 IF(lwp) WRITE(numout,*) ' momentum mixing coef. = F( e1, e2 ) or F( e1^3, e2^3 ) (lap. or blp. case)' 188 188 IF( ln_dynldf_lap ) CALL ldf_c2d( 'DYN', 'LAP', zah0, ahmt, ahmf ) ! surface value proportional to scale factor 189 IF( ln_dynldf_blp ) CALL ldf_c2d( 'DYN', 'B iL', zah0, ahmt, ahmf ) ! surface value proportional to scale factor^3189 IF( ln_dynldf_blp ) CALL ldf_c2d( 'DYN', 'BLP', zah0, ahmt, ahmf ) ! surface value proportional to scale factor^3 190 190 ! 191 191 CASE( -30 ) !== fixed 3D shape read in file ==! … … 203 203 IF(lwp) WRITE(numout,*) ' momentum mixing coef. = F( latitude, longitude, depth )' 204 204 IF( ln_dynldf_lap ) CALL ldf_c2d( 'DYN', 'LAP', zah0, ahmt, ahmf ) ! surface value proportional to scale factor 205 IF( ln_dynldf_blp ) CALL ldf_c2d( 'DYN', 'B iL', zah0, ahmt, ahmf ) ! surface value proportional to scale factor205 IF( ln_dynldf_blp ) CALL ldf_c2d( 'DYN', 'BLP', zah0, ahmt, ahmf ) ! surface value proportional to scale factor 206 206 ! ! reduction with depth 207 207 CALL ldf_c1d( 'DYN', r1_4, ahmt(:,:,1), ahmf(:,:,1), ahmt, ahmf )
Note: See TracChangeset
for help on using the changeset viewer.