Changeset 3726
- Timestamp:
- 2012-12-10T11:37:43+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90
r3294 r3726 115 115 ln_neptramp, rn_htrmin, rn_htrmax 116 116 !!---------------------------------------------------------------------- 117 ! ! Dynamically allocate local work arrays118 CALL wrk_alloc( jpi, jpj , ht, htn, tscale, tsp, hur_n, hvr_n, hu_n, hv_n )119 CALL wrk_alloc( jpi, jpj, jpk, znmask )120 !121 117 ! Define the (simplified) Neptune parameters 122 118 ! ========================================== 123 119 124 !! WRITE(numout,*) ' start dynnept namelist'125 !! CALL FLUSH(numout)126 120 REWIND( numnam ) ! Read Namelist namdyn_nept: Simplified Neptune 127 121 READ ( numnam, namdyn_nept ) 128 !! WRITE(numout,*) ' dynnept namelist done'129 !! CALL FLUSH(numout)130 122 131 123 IF(lwp) THEN ! Control print 132 124 WRITE(numout,*) 133 WRITE(numout,*) 'dyn_nept_init : Simplified Neptune module enabled'125 WRITE(numout,*) 'dyn_nept_init : Simplified Neptune module' 134 126 WRITE(numout,*) '~~~~~~~~~~~~~' 135 127 WRITE(numout,*) ' --> Reading namelist namdyn_nept parameters:' 136 128 WRITE(numout,*) ' ln_neptsimp = ', ln_neptsimp 137 129 WRITE(numout,*) 138 WRITE(numout,*) ' ln_smooth_neptvel = ', ln_smooth_neptvel 139 WRITE(numout,*) ' rn_tslse = ', rn_tslse 140 WRITE(numout,*) ' rn_tslsp = ', rn_tslsp 141 WRITE(numout,*) 142 WRITE(numout,*) ' ln_neptramp = ', ln_neptramp 143 WRITE(numout,*) ' rn_htrmin = ', rn_htrmin 144 WRITE(numout,*) ' rn_htrmax = ', rn_htrmax 145 WRITE(numout,*) 146 CALL FLUSH(numout) 147 ENDIF 130 IF( ln_neptsimp ) THEN 131 WRITE(numout,*) ' ln_smooth_neptvel = ', ln_smooth_neptvel 132 WRITE(numout,*) ' rn_tslse = ', rn_tslse 133 WRITE(numout,*) ' rn_tslsp = ', rn_tslsp 134 WRITE(numout,*) 135 WRITE(numout,*) ' ln_neptramp = ', ln_neptramp 136 WRITE(numout,*) ' rn_htrmin = ', rn_htrmin 137 WRITE(numout,*) ' rn_htrmax = ', rn_htrmax 138 WRITE(numout,*) 139 ENDIF 140 ENDIF 141 ! 142 IF( .NOT. ln_neptsimp ) RETURN 143 ! ! Dynamically allocate local work arrays 144 CALL wrk_alloc( jpi, jpj , ht, htn, tscale, tsp, hur_n, hvr_n, hu_n, hv_n ) 145 CALL wrk_alloc( jpi, jpj, jpk, znmask ) 148 146 149 147 IF( ln_smooth_neptvel ) THEN … … 151 149 ELSE 152 150 IF(lwp) WRITE(numout,*) ' --> neptune velocities will not be smoothed' 153 ENDIF154 155 IF( ln_neptsimp ) THEN156 IF(lwp) WRITE(numout,*) ' --> ln_neptsimp enabled, solving for U-UN'157 ELSE158 IF(lwp) WRITE(numout,*) ' --> ln_neptsimp disabled'159 RETURN160 151 ENDIF 161 152
Note: See TracChangeset
for help on using the changeset viewer.