Changeset 147 for trunk/NEMO/OPA_SRC/LDF/ldfdyn_c3d.h90
- Timestamp:
- 2004-10-19T15:31:08+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/LDF/ldfdyn_c3d.h90
r32 r147 130 130 END DO 131 131 ELSE ! partial steps or s-ccordinate 132 # if defined key_partial_steps || defined key_s_coord 132 133 zc = MAXVAL( fsdept(:,:,jpkm1) ) 134 # else 135 zc = fsdept(:,:,jpkm1) 136 # endif 133 137 IF( lk_mpp ) CALL mpp_max( zc ) ! max over the global domain 134 138
Note: See TracChangeset
for help on using the changeset viewer.